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SUMMARY 


This  report  documents  the  OMEGA  10  and  OMEGA  11  programs  which 
were  developed  to  prepare  flight  and  ground  run-up  noise  data  for 
input  to  NOISEMAP,  the  Air  Force  community  noise  exposure  prediction 
program.  All  routines  in  each  program  are  documented  at  a  level 
useful  to  a  programmer  working  with  the  code  or  a  reader  interested 
in  a  general  overview  of  what  happens  within  a  specific  subroutine. 

Both  the  OMEGA  10  and  the  OMEGA  11  programs  input  reference 
aircraft  noise  data  from  the  NOISEFILE  4  database.  This  NOISEFILE 
4  database  contains  reference  datasets  for  both  flyover  and  ground 
run-up  operations  for  almost  all  current  military  aircraft.  There 
are  typically  three  to  six  flyover  and  ground  run-up  datasets  for 
each  aircraft  where  each  dataset  defines  a  different  engine  power 
setting.  The  flyover  datasets  contain  seven  mean  single  event  mea¬ 
sures  plus  the  mean  sound  pressure  level  spectrum  of  peak  perceived 
noise  level  (PNLM) ,  all  normalized  to  a  minimum  slant  range  of  1000 
feet,  a  surface  temperature  of  59 °F  and  a  surface  relative  humidity 
of  70%.  Each  flyover  dataset  is  also  normalized  to  a  specific  re¬ 
ference  airspeed  which  varies  depending  on  the  type  of  aircraft  and 
the  power  condition.  The  ground  run-up  datasets  contain  19  farfield 
sound  pressure  level  spectra  measured  at  10  degree  increments  at  a 
fixed  radial  distance  around  one  side  of  the  aircraft.  These  ground 
run-up  data  are  normalized  to  a  fixed  radial  distance  of  250  feet 
and  to  standard  day  meteorological  conditions  (59°F,  29.92  inches 
Hg,  70%  relative  humidity) .  The  format  and  content  of  these  nor¬ 
malized  reference  flight  and  ground  run-up  data  are  defined  in 
Appendices  E  and  G,  respectively. 

The  OMEGA  10  program  inputs  reference  flyover  datasets  from 
NOISEFILE  4  database  for  a  specific  aircraft,  and  extrapolates  the 
reference  sound  pressure  level  (SPL)  data  from  the  reference  mini¬ 
mum  slant  range  (1000  feet)  to  22  profile  distances  (200  to  25000 
feet) ,  computes  the  single  event  measures  at  these  distances,  and 
then  applies  the  A"6  rule  to  extrapolate  or  interpolate  these  single 
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event  versus  distance  data  to  produce  distance  profiles  for  up  to 
seven  single  event  noise  measures  at  the  requested  power  setting, 
airspeed,  temperature  and  relative  humidity.  The  seven  single  event 
measures  are  A-weighted  overall  sound  level  (ALX) ,  tone-corrected 
A-weighted  overall  sound  level  (ALTX) ,  perceived  noise  level  (PNLX) , 
tone-corrected  perceived  noise  level  (PNLTX) ,  sound  exposure  level 
(SELX) ,  tone-corrected  sound  exposure  level  ( SELTX)  and  effective 
perceived  noise  level  (EPNLX) .  In  the  print  mode,  the  profile  data 
for  all  seven  measures  are  always  computed  and  printed  and,  when 
requested  by  the  IPU  flag,  the  SELX,  SELTX  and  EPNLX  data  are  written 
on  the  card  image  file.  In  the  no-print  mode,  which  is  designed 
primarily  to  prepare  data  for  input  to  the  NOISEMAP  program,  only 
the  one  SELX,  SELTX,  or  EPNLX  measure  identified  on  the  code  sheet 
is  written  to  the  card  image  file.  The  content  and  format  of  these 
flight  noise  profile  datasets  in  the  card  image  file  are  given  in 
Appendix  F. 

The  A "6  rules  referenced  in  the  above  paragraph  describe  the 
procedure  required  to  interpolate  and/or  extrapolate  the  OMEGA  10 
profile  data  from  the  given  reference  data.  These  rules  are  defined 
in  the  documentation  for  subroutine  SETUPD6 . 

The  OMEGA  11  program  inputs  reference  ground  run-up  datasets 
from  the  NOISEFILE  4  database  for  a  specific  aircraft,  extrapolates 
these  SPL  spectra  from  the  reference  distance  (250  feet)  to  each  of 
the  22  profile  distances,  computes  the  AL,  ALT,  PNL  and  PNLT  single 
event  measures  for  each  spectrum  at  each  distance,  and  then  inter¬ 
polates  these  reference  data  to  generate  similar  distance  profiles 
for  ALX,  ALTX,  PNLX,  and  PNLTX  at  the  requested  temperature,  rel¬ 
ative  humidity,  barometric  pressure  and  aircraft  engine  power  set¬ 
ting.  As  in  the  OMEGA  10  program  above,  print  and  punch  flags  are 
defined  to  control  the  type  and  quantity  of  data  printed  on  the  out¬ 
put  and  card  image  files.  The  format  and  content  of  these  ground 
run-up  noise  profile  data  are  described  in  Appendix  H. 


The  profile  datasets  written  in  the  card  image  files  as 
described  in  the  above  programs  are  the  primary  aircraft  noise  datj 
used  by  the  NOISEMAP  program  to  generate  noise  profiles  around  a 
specific  airbase.  With  these  programs  these  noise  data  can  be 
tailored  to  the  specific  weather  and  aircraft  flight  and  ground 
run-up  power  conditions  for  that  airbase  which  will,  in  turn,  im¬ 
prove  the  accuracy  of  the  noise  contours  produced  by  the  NOISEMAP 
program. 

The  remaining  appendices  in  this  report  contain  the  following 
items  for  both  the  OMEGA  10  and  OMEGA  11  programs: 

(a)  a  complete  source  listing  as  well  as  a  super  index  which 
lists  all  variable  names  and  the  routines  in  which  they  are  used; 

(b)  the  program  code  sheet  and  the  procedure  for  setup  and 
execution  of  the  program; 

(c)  a  complete  sample  run  including  a  listing  of  all  input 
and  output  data. 
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PREFACE 


This  report  documents  the  OMEGA  10  and  OMEGA  11  computer  pro¬ 
grams  which  were  developed  to  prepare  aircraft  flyover  and  ground 
run-up  data  for  input  to  the  NOISEMAP  program.  This  work  was  per¬ 
formed  for  the  Air  Force  Aerospace  Medical  Research  Laboratory  at 
Wright-Patterson  Air  Force  Base,  Ohio.  The  contract  monitor  for 
this  effort  was  Mr.  John  N.  Cole. 

Special  thanks  are  due  to  Mr.  John  Cole  and  Mr.  Jerry  Speakman 
for  their  guidance  and  assistance  in  this  effort. 
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INTRODUCTION 


This  report  contains  the  complete  documentation  of  the  OMEGA 
10  and  OMEGA  11  programs.  Included  in  Appendices  are  the  program 
source  listings  with  a  symbol  versus  reference  listing  at  the  end 
of  each  program  (Super  Index) ,  input  parameter  code  sheets  with 
standard  procedures  for  setup  and  execution  of  each  program,  for¬ 
mat  descriptions  for  all  card  input  and  output,  and  input  and  out¬ 
put  sample  test  data .  Both  programs  were  written  in  CDC  FORTRAN 
Extended  (FORTRAN  IV)  for  the  CDC  CYBER  74  and  CYBER  750  in  the  ASD 
Computer  Center  at  Wright-Patterson  Air  Force  Base.  Several  non- 
ANSI  standard  features  of  FORTRAN  Extended  were  used  throughout 
both  programs,  for  example,  asterisks  were  used  as  Hollerith  delim¬ 
iter  in  format  statements;  however,  most  of  the  coding  is  in  stand¬ 
ard  FORTRAN. 

These  programs  were  developed  by  the  University  of  Dayton  Re¬ 
search  Institute  (UDRI)  and  the  Air  Force  Aerospace  Medical  Research 
Laboratory  (AFAMRL)  to  prepare  flight  (OMEGA  10)  and  ground  run-up 
(OMEGA  11)  noise  data  for  input  to  NOISEMAP,  the  Air  Force  community 
noise  exposure  prediction  program.  Both  programs  input  reference 
datasets  from  the  NOISEFILE  4  database  and  interpolate  or  extrapo¬ 
late  the  profile  measure  data  at  the  requested  power  settings  and 
meteorological  conditions.  These  flight  and  ground  run-up  reference 
data  in  NOISEFILE  4  were  computed  by  the  OMEGA  6  and  8  programs, 
respectively.  Some  of  the  analysis  procedures  used  in  these  pro¬ 
grams  are  described  in  AMRL-TR-73-107 . ^ 

The  OMEGA  10  program  inputs  all  flight  noise  reference  data¬ 
sets  from  file  TAPE7  for  the  aircraft  being  analyzed.  File  TAPE 7 
was  set  up  from  NOISEFILE  4  with  a  CDC  UPDATE  run.  These  flight 
reference  datasets  contain  seven  mean  single  event  measures  plus 
the  mean  sound  pressure  level  spectrum  of  perceived  noise  level 
(PNLM) ,  all  normalized  to  1000  feet  minimum  slant  range  at  standard 
day  meteorological  conditions  (59°F  and  70%  relative  humidity).  A 
description  of  the  format  and  content  of  these  reference  datasets 
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is  given  in  Appendix  E.  These  reference  data  are  used  to  compute 
the  ALX,  ALTX,  PNLX,  PNLTX ,  EPNLX,  SELX,  and/or  SELTX  profile  data 
at  the  reference  power  setting  for  the  profile  output  meteorological 
conditions.  These  reference  power  profile  data  are  then  used  to 
interpolate  and/or  extrapolate  the  profile  data  to  the  requested 
power  setting  and  airspeed.  These  final  profile  data  are  printed 
in  tabular  form  on  the  OUTPUT  file  and/or  written  on  file  TAPE 3  in 
the  format  required  by  the  NOISEMAP  program.  Since  only  the  SELTX, 
SELX,  or  EPNLX  data  are  used  by  the  NOISEMAP  program,  only  these 
profile  datasets  can  be  written  to  file  TAPE3.  A  description  of 
the  format  and  content  of  this  TAPE3  file  is  given  in  Appendix  F. 

A  complete  sample  problem  with  a  listing  of  all  input  and  output 
data  is  given  in  Appendix  C. 

The  OMEGA  11  program  inputs  all  ground  run-up  noise  reference 
datasets  for  the  aircraft  being  analyzed  from  file  TAPE7  which  was 
also  set  up  from  NOISEFILE  4  with  a  CDC  UPDATE  run.  These  reference 
datasets  contain  spectral  data  at  10°  angular  increments  for  angles 
0  to  180  degrees  at  a  specific  power  setting  and  standard  reference 
distance  (250  feet)  and  for  standard  day  meteorological  conditions 
(59 °F ,  70%  relative  humidity,  and  29.92  in.  Hg.).  The  format  and 
content  of  these  reference  datasets  are  described  in  Appendix  G. 
These  reference  SPL  spectra  are  then  used  to  extrapolate  spectral 
data  for  the  same  angles  at  22  standard  profile  distances  for  any 
reasonable  meteorological  conditions,  all  at  the  reference  power 
settings.  These  extrapolated  spectral  data  are  used  to  derive  PNLX, 
PNLTX,  ALX  and  ALTX  data  for  each  angle  and  profile  distance.  These 
PNLTX,  ALX  and  ALTX  data  for  two  power  settings  are  then  used  to  in¬ 
terpolate  the  final  ground  run-up  noise  profile  data  required  by  the 
NOISEMAP  program;  they  are  written  on  file  TAPE2  in  the  format 
described  in  Appendix  H.  A  complete  sample  problem  with  a  listing 
of  all  input  and  output  are  given  in  Appendix  D. 

The  profile  datasets  written  in  the  TAPE 2  and  TAPE 3  files  as 
described  in  the  above  programs  are  the  primary  aircraft  noise  data 
used  by  the  NOISEMAP  program  to  generate  noise  profiles  around  a 
specific  airbase.  With  these  programs  these  noise  data  can  be 
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tailored  to  the  specific  weather  and  aircraft  flight  and  ground 
run-up  power  conditions  for  that  airbase  which  will,  in  turn,  im¬ 
prove  the  accuracy  of  the  final  noise  contours. 

These  OMEGA  10  and  11  programs  will  probably  be  modified  and 
combined  into  one  program  (NOISECALL)  which  will  be  part  of  a  larger 
NO I SEMAP  preprocessor  program. 
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GENERAL  OVERVIEW  OF  THE  OMEGA  10  PROGRAM 


The  OMEGA  10  program,  hereafter  referred  to  as  simply  the 
"program'',  is  designed  to  compute  descriptions  of  the  noise  of  an 
aircraft  in  terms  of  A-weighted  overall  sound  level  (ALX) ,  tone- 
corrected  A-weighted  overall  sound  level  ( ALTX) ,  perceived  noise 
level  (PNLX) ,  tone-corrected  perceived  noise  level  (PNLT) ,  effective 
perceived  noise  level  (EPNLX) ,  sound  exposure  level  (SELX) ,  and 
tone-corrected  sound  exposure  level  (SELTX)  as  a  function  of  slant 
distance  to  the  aircraft,  aircraft  power  setting,  and  aircraft  air¬ 
speed.  These  noise  measure  data  (profile  datasets)  are  computed 
for  aircraft  flyover  tests  as  outlined  in  AMRL-TR-7 3-107 . ^  The 
EPNLX,  SELX  and/or  SELTX  profile  datasets  are  required  as  input  to 
the  NOISEMAP  noise  exposure  forecast  program  and  also  are  the  fly¬ 
over  part  of  the  NOISEFILE  3  database . 

To  compute  the  above  integrated  noise  measures  at  the  request¬ 
ed  meteorological  conditions  and  for  each  power  setting  (PSC)  and 
airspeed  requested  on  the  code  sheet,  the  program  first  reads  in  all 
reference  file  datasets  for  aircraft  ACC.  A  description  of  these 
reference  datasets  is  given  in  Appendix  E.  Each  reference  SPL  spec¬ 
trum  is  then  extrapolated  to  each  of  the  22  standard  slant  distances 
and  to  the  requested  temperature  and  relative  humidity  from  which 
PNLX,  PNLTX ,  ALX  and  ALTX  noise  measures  are  determined.  These  four 
extrapolated  noise  measures  as  well  as  the  mean  PNLA,  PNLTA,  ALA, 
and  ALTA  data  computed  from  the  mean  reference  spectrum  and  the  mean 
EPNLA,  SELA,  and  SELTA  data  from  the  reference  dataset  are  used  to 
compute  the  PNLX,  PNLTX,  PLX  and  ALTX  single  event  measures  and  the 
EPNLX,  SELX  and  SELTX  integrated  measures  at  each  distance,  power 
setting,  and  airspeed.  The  final  profile  noise  measures  are  then 
interpolated  or  extrapolated  from  these  single  event  noise  data 
using  the  A "6  rules. 

The  program  prints  plots  and/or  listings  of  almost  all  of  the 
above  input  and  computed  data.  The  following  is  a  summary  of  the 
program  operations: 


{1)  The  program  reads  the  code  sheet  input  data  and  all  re¬ 
ference  datasets  for  aircraft  ACC  and  initializes  numerous  test 
variables . 

(2)  The  program  (subroutine  SETUPD6)  determines  which  re¬ 
ference  file  datasets  are  required  to  compute  the  requested  profile 
data  at  each  power  setting. 

(3)  The  cover  page  is  printed  when  IPR>0. 

(4)  The  PNLA,  PNLTZ ,  ALA  and/or  ALTA  data  are  computed  from 
each  reference  spectrum  used  in  the  analysis. 

(5)  A  tab  plot  of  the  reference  spectrum  is  printed  on  page 
G  (IPR>0). 

(6)  The  PNLX  through  SELX  (7  measures)  single  event  noise 
measures  are  computed  from  the  22  extrapolated  SPL  spectra  for  air- 
to-ground  and  ground-to-ground  propagation  for  the  reference  dataset 
power  setting  and  program  reference  airspeed  (250  knots) .  Computer 
listings  of  the  SPL  specta  plus  these  seven  single  event  measures 

at  each  distance  and  tab  plots  of  these  single  event  measures,  all 
at  the  reference  file  power  setting  and  airspeed,  are  printed  only 
when  IPR>0  for  the  NP=0  option. 

(7)  The  A" 6  rules  are  then  applied  to  compute  the  final  pro¬ 
file  data  for  one  (IPR=0)  or  all  (IPR=1)  single  event  measures  at 
each  power  setting  (PSC) .  Computer  listings  and  plots  of  these 
profile  data  are  printed  only  when  IPR  equal  one. 

(8)  These  EPNLX,  SELX  and/or  SELTX  profile  data  are  written 
on  file  TAPE 3  when  IPU  is  greater  than  zero.  A  complete  description 
of  these  profile  datasets  is  given  in  Appendix  F.  Since  the  remain¬ 
ing  PNLTX,  PNLX,  AL  and  ALTX  single  event  measures  are  not  used  as 
input  to  the  NOISEMAP  program,  they  are  not  written  on  file  TAPE 3 . 

(9)  The  final  summary  page  is  always  printed. 

Examples  of  all  the  above  tab  plots  and  listings  are  present¬ 
ed  with  the  sample  problem  in  Appendix  C.  When  IPR  is  less  than 
one,  only  the  summary  page  plus  any  error  messages  are  printed  on 
the  OUTPUT  file.  For  IPR  greater  than  zero,  all  single  event  mea¬ 
sures  are  always  computed  (all  MEAS  are  set  equal  to  one) ,  while, 
for  IPR  equal  to  zero,  only  one  requested  measure  (MEAS>0) ,  is  com¬ 
puted  (default  in  SELX) . 


The  CDC  FORTRAN  Extended  (FORTRAN  IV)  computer  language  was 
used  for  the  entire  program.  The  common  and  subroutine  features 
of  the  language  were  used  extensively  throughout  the  program  to 
save  computer  time  and  core. 

The  following  sections  describe  the  detailed  tasks  accom¬ 
plished  by  the  program.  It  is  intended  to  document  the  procedures 
within  each  subroutine  at  a  level  useful  to  either  a  programmer 
reading  this  while  working  with  the  code  or  a  reader  simply  in¬ 
terested  in  what  happens  with  a  specific  subroutine.  The  algorithms 
used  to  compute  the  noise  measures  are  described  in  detail  in  the 
individual  subroutines . 
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GENERAL  ORGANIZATION  OF  THE  OMEGA  10  PROGRAM 

The  general  organization  of  the  entire  program  is  shown  in 
Figure  1.  The  arrows  indicate  access  to  the  various  routines 
rather  than  program  flow;  for  example,  MAIN  calls  subroutine  CDIST 
which  in  turn  calls  subroutines  CPNL,  CPTC  and  CAL  and  subroutine 
CPNL  calls  function  FNOY.  Function  ICV  is  called  numerous  times 
from  the  MAIN  routine  and  subroutines  OUTG,  OUTH,  OUTJ,  DELTA6 , 
and  SETUPD6 .  The  circled  numbers  indicate  the  input  (TAPE5)  and 
output  (TAPE3  and  TAPB6 )  files. 

Using  Figure  1  as  a  guide,  this  section  summarizes  in  very 
general  terms  the  functions  performed  by  the  entire  program.  This 
is  meant  to  serve  as  an  introduction  for  the  reader  to  the  functions 
of  the  individual  subroutines . 

The  control  routine,  MAIN,  reads  the  job  control  card,  the 
aircraft  code  sheet  card,  and  the  operation  power  information  card 
(or  cards) .  For  non-standard  temperature  and  humidity,  subroutine 
ALPH  is  called  to  compute  the  atmospheric  absorption  data.  Numerous 
program  and  test  variables  are  initialized  at  the  beginning  of  the 
MAIN  routine. 

Next  the  program  reads  all  reference  datasets  for  aircraft 
ACC  from  the  reference  file  (TAPE 7) .  These  datasets  are  checked 
for  errors  which  will  result  in  the  aircraft  data  being  deleted 
from  the  job.  At  the  end  of  the  dataset  input,  subroutine  SETUPD6 
is  called  to  determine  which  datasets  are  required  to  compute  the 
profile  data  at  each  requested  output  power  setting  (PSC) . 

Subroutines  TITLE  and  IPA  are  called  (for  IPR>0)  to  print 
the  cover  page  and  initialize  plot  arrays  used  in  subroutines  OUTG 
and  OUTJ. 

Subroutines  CPNL,  CPTC  and  CAL  are  called  to  compute  the  PNLA , 
C  and  ALA  data  for  each  reference  spectrum;  the  PNLTA  and  ALTA  data 
are  then  computed  in  the  MAIN  routine.  Subroutine  CPNL  uses  func¬ 
tion  FNOY  to  compute  the  noy  data  for  each  SPL  level.  These  data 
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as  well  as  a  plot  and  listing  of  the  reference  SPL  spectrum  are 
printed  on  output  page  G  by  subroutine  OUTG  (IPR>0) . 

Subroutine  CDIST  is  called  for  each  reference  power  setting 
(reference  dataset)  and  each  type  propagation  (air-to-ground  and 
ground-to-ground)  to  extrapolate  the  SPL  reference  spectrum  to  22 
standard  profile  distances  at  a  selected  temperature  and  humidity, 
compute  PNLX,  PNLTX,  ALX,  ALTX  and  C  for  each  extrapolated  spectrum, 
compute  the  SELX,  SELTX  and  EPNLX  measures  for  each  distance  at 
the  reference  file  airspeed,  and  finally  compute  the  smoothed  EPNLX, 
SELTX,  PNLTX  and  ALTX  data.  These  final  EPNLX,  SELX  and  SELTX  pro¬ 
file  data  are  adjusted  to  the  program  reference  airspeed  (250  knots) . 
Then  all  seven  profile  measures  are  stored  in  arrays  PRDA  (air-to- 
ground)  and  PRDG  (ground-to-ground) .  This  subroutine  calls  sub¬ 
routines  CPNL,  CPTC ,  and  CAL  to  compute  the  above  PNLX,  C  and  ALX 
data.  Subroutine  CPNL  also  uses  function  FNOY  to  compute  the  noy 
data  required  by  the  PNLX  algorithm. 

When  the  program  is  in  the  print  mode  (IPR>0)  with  the  NP=0 
option  in  effect,  listings  of  the  extrapolated  SPL  spectra  and  the 
single  event  data  (PNL  etc.)  for  each  distance  are  printed  by  sub¬ 
routine  OUTH.  The  SPL  spectra  are  printed  on  output  pages  H  and  L 
for  air-to-ground  and  ground-to-ground,  respectively;  the  sine le 
event  data  are,  likewise,  printed  on  pages  I  and  M.  Subroutine 
OUTH  calls  subroutine  HEAD  to  print  each  page  header  block.  Also 
tab  plots  of  these  same  single  event  data  are  printed  by  subroutine 
OUTJ.  The  air-to-ground  PNLTX,  PNLX,  ALX  and  ALTX  single  event 
data  are  plotted  on  output  page  J  and  the  SELTX,  SELX  and  EPNLX, 
single  event  data  on  page  K.  The  corresponding  ground-to-ground 
single  event  data  are  plotted  on  pages  N  and  0.  All  these  data 
are  computed  at  the  reference  power  setting  and  airspeed. 

When  the  program  is  in  the  print  mode  but  with  NP>0,  the 
final  profile  data  for  the  seven  single  event  measures  for  each 
requested  power  setting  (PSC)  and  airspeed  (VX)  are  computed  by 
subroutine  DELTAS.  These  data  are  computed  by  applying  the  A  "6 
rules  to  extrapolate  or  interpolate  these  data  from  the  reference 
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data.  Once  again,  listings  and  plots  of  these  single  event  measures 
are  printed  by  subroutines  OUTH  and  OUTJ,  respectively. 

In  the  no  print  mode  (IPR=0)  for  all  NP,  the  program  only 
computes  the  one  single  event  measure  requested  by  the  MEAS  code 
sheet  parameter  plus  all  other  data  required  to  compute  this  re¬ 
quested  measure.  No  plots  or  listings  are  printed  and  subroutines 
OUTH  and  OUTJ  are  not  called. 

Next,  when  the  program  is  in  the  punch  mode  (IPU  0) ,  subroutine 
PPFDAT  is  called  to  write  either  one  measure  (IPR=0)  or  all  three 
EPNLX,  SELX  and  SELTX  single  event  measures  (IPR>0)  on  file  TAPE3 
in  the  standard  profile  dataset  format  (Appendix  F) .  Finally,  the 
summary  page  is  printed  and  program  control  is  returned  to  label 
10  to  begin  the  next  aircraft  analysis  or  terminate  the  job.  Note 
that  the  PNLTX ,  PNLX,  ALX,  and  ALTX  single  event  measures  can  not 
be  written  to  file  TAPE3. 


DEFINITIONS  OF  SYMBOLS  AND  TERMINOLOGY 
USED  IN  THE  OMEGA  10  PROGRAM 


The  symbols  defined  here  are  used  in  this  report  and/or  in 
the  OMEGA  10  program  source  listing.  They  are  a  subset  of  the  com¬ 
plete  symbol  versus  reference  list  given  in  the  SUPER  INDEX  in 
Appendix  I.  Many  of  the  symbols  given  in  the  SUPER 

INDEX  are  really  dummy  variables  used  in  only  one  or  two  routines 
and  redefined  in  each  routine;  most  of  these  symbols  are  not  in¬ 
cluded  in  this  list  of  symbol  definitions.  Symbols  which  are  ar¬ 
rays  will  be  listed  with  their  array  dimensions.  Variables  I,  J, 
and  L  are  usually  (but  not  always)  used  as  array  subscripts  as 

follows: 

(1)  The  subscript  "I"  is  a  running  index  associated  with 
any  one  spectrum  or  standard  profile  distance. 

(2)  The  subscript  "J"  is  a  running  index  associated  with 
any  one  band  in  the  set  of  1/3  octave  frequency  bands. 

(3)  The  subscript  "L"  is  a  running  index  associated  with 
any  one  power  setting. 
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SYMBOL 


DESCRIPTION 


AC 
ACC 
ALA(6) 
ALTA (6) 

ALTX (22) 

ALX (22) 

ATNC (24) 

ATNR (24) 

AW (24) 

BLK 

COMD ( 6 ) 

CRI 

D2X ( 22 ) 

DATE 

DATEN 

DELN 

DG 

DRAG (3,6) 


Aircraft  name  (10  characters  or  less) . 

Aircraft  code  (3  characters  —  see  code  sheet). 

Mean  reference  A-weighted  overall  sound  level  in  dBA 

Mean  reference  tone-corrected  A-weighted  overall 
sound  level  in  dBA. 

Profile  tone-corrected  A-weighted  overall  sound 
level  for  each  distance  for  the  reference  power  set¬ 
ting  and  airspeed  in  dBA. 

Profile  A-weighted  overall  sound  level  for  each  dis¬ 
tance  for  the  reference  file  power  setting  and  air¬ 
speed  in  dBA. 

Atmospheric  absorption  coefficients  for  the  OMEGA  10 
profile  output  (ITEMP  and  IRHUM)  in  dB  per  1000  feet 

Atmospheric  absorption  coefficients  for  standard  day 
conditions  (59°F  and  70%)  in  dB  per  1000  feet. 

A-weighting  coefficients  in  dB. 

A  data  statement  variable  carried  in  OUTC  labeled 
common  containing  a  blank  Hollerith  character.  It 
is  used  to  print  variable  format  data  and  initialize 
numerous  program  variables . 

Last  five  characters  of  each  reference  file  dataset 
COMDECK  name. 

Comdeck  revision  identifier  (see  code  sheet) . 

Factor  to  adjust  the  measure  data  to  the  correct 
profile  slant  distance. 

Date  of  computer  run  (see  code  sheet) . 

Date  of  computer  run  in  numeric  form  which  is  used 
as  part  of  the  data  identification  code  on  tab  plots 
and  in  the  reference  dataset  (see  code  sheet) . 

Noise  adjustment  factor  added  to  each  band  in  the 
reference  spectrum  (dB) . 

Ground-to-ground  propagation  adjustment  factor. 

Drag  configuration  read  from  the  reference  dataset 
and  printed  on  output  page  G. 


SYMBOL 


DESCRIPTION 


EA(13,13)  Excess  atmospheric  attenuation  in  dB  for  bands  17 

to  29  and  distances  400  to  6300  feet. 

EPNLA(6)  Mean  reference  effective  perceived  noise  level  for 

each  power  condition  in  EPNdB. 

EPNLX(22)  Profile  effective  perceived  noise  level  in  EPNdB 

for  each  distance  for  the  reference  power  setting 
and  airspeed. 

ET(2)  Engine  type  read  from  the  reference  dataset  and 

printed  on  page  G  and  on  the  second  profile  dataset 
comment  card. 

EXTMX  Maximum  permitted  A"6  extrapolation  from  the  reference 

value  at  a  slant  distance  of  1000  feet  for  the  first 
air-to-ground  measure  (EXTMX=5.0  dB) . 

FJ  Constant  used  in  the  perceived  noise  level  computa¬ 

tions;  FJ=0.15  for  1/3  octave  band  data. 

FL(24,5)  Data  statement  array  used  in  noy  computations  (func¬ 

tion  FNOY)  containing  the  band  sound  pressure  levels 
in  dB  given  in  Table  3 . 

FM(24,4)  Data  statement  array  used  in  noy  computations  (func¬ 

tion  FNOY)  containing  the  reciprocals  c  the  slopes 
given  in  Table  3 . 

FR£Q3(24)  Geometric  mean  and  lower  limiting  frequencies  re¬ 

quired  to  compute  atmospheric  absorption  coefficients 
for  1/3  octave  data. 

HO  Reference  minimum  slant  range  for  the  power  setting 

being  computed. 

IAP  Index  of  the  reference  approach  operation  power  code 

and  corresponding  power  setting  data. 

IBNH  Largest  band  number  index  (24  corresponds  to  band  40) . 

IBNL  Initial  band  number  index  (1  corresponds  to  band  17). 

ID  Variable  frequently  used  to  identify  the  SPL  data  to 

be  used  in  the  specific  computations. 

IHP  Index  of  the  highest  ranking  reference  file  power 

setting  less  than  approach  power. 

IMS (6)  Reference  minimum  slant  range  in  feet  for  each  power 

setting. 
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SYMBOL 


DESCRIPTION 


IORD ( 28 ) 
I  PAGE 
IPR 
IPROP 

IPTC 

IPU 

IRD 

IREF ( 12 ) 


IREQ (6) 
IREQC (3,12) 

IRHUM 

ISEQD(7) 

ISEQF (7) 

ISRC (24) 

I  TEMP 
I  TP 

~V  o ) 

IVER 


Tab  plot  ordinate  scale  values. 

Part  of  page  number  identification. 

Program  print  control  flag  (see  code  sheet) . 

Propagation  type  code;  1  for  air-to-ground  and  2  for 
ground-to-ground . 

Index  of  band  which  determines  the  tone  correction 
for  the  reference  distance  profile  spectrum. 

Program  profile  dataset  print  (file  TAPE3)  control 
flag  (see  code  sheet) . 

Profile  distance  index  which  corresponds  to  the 
reference  minimum  slant  range. 

Flag  used  to  indicate  change  in  slope  reference  in¬ 
dices  because  the  reference  and  requested  power 
settings  are  on  different  sides  of  approach  power 
(see  subroutine  DELTA6) . 

Program  flag  used  to  indicate  which  reference  data 
are  required  to  compute  the  requested  profile  output. 

Indices  of  reference  power  setting  and  two  slope 
power  settings  required  to  compute  the  profile  out¬ 
put  for  each  requested  power  setting.  See  subroutine 
DELTA6  for  the  complete  definition. 

Reference  relative  humidity  in  percent. 

Data  statement  array  in  subroutine  OUTH  containing 
the  indexes  of  the  measure  data  in  array  SENX  in  the 
sequence  required  for  printing. 

Same  as  ISEQD  except  ISEQF  contains  the  index  of 
the  variable  format  array  corresponding  to  each  mea¬ 
sure  data  point. 

Integer,  value  of  mean  reference  data. 

Reference  surface  temperature  (F) . 

Index  of  the  reference  takeoff  operation  power  code 
and  corresponding  power  setting  data. 

Reference  aircraft  velocity  in  knots  for  each  power 
setting. 

Program  version  code. 


SYMBOL 


DESCRIPTION 


IVX  Integer  value  of  the  reference  or  profile  aircraft 

velocity  in  knots. 

LFLG(12)  Program  flag  used  to  flag  profile  data  when  the  extra¬ 

polation  limit  is  exceeded  or  when  data  are  omitted 
because  of  A "6  problems. 

LIM  Extrapolation  check  flag.  Extrapolation  is  checked 

only  when  LIM=1. 

MEAS(3)  Program  control  variable  used  to  select  the  profile 

measure  for  the  no-print  mode  (see  code  sheet) . 

MM  Maximum  number  of  reference  power  settings  per  air¬ 

craft  (MM=6) . 

MOPC  Maximum  number  of  operation  power  codes  defined  in 

array  OPP  in  subroutine  SETUPD6 . 

N  Number  of  reference  file  power  settings  read  from  file 

TAPE7  for  aircraft  ACC. 

NP  Number  of  output  power  settings  for  which  profile 

data  are  requested  for  this  aircraft. 

NPM  Maximum  NP  permitted  by  the  program  (NPM=12) . 

NR(6)  Number  of  runs  (measure  locations)  averaged  to  obtain 

the  given  reference  data  for  each  power  setting  (the 
reference  data  were  computed  in  the  OMEGA  6  program) . 

0PC(6)  Operation  power  code  for  each  reference  power  setting. 

0PCC(12)  Operation  power  code  for  each  profile  output  power 

setting. 

0PCD(12)  Data  statement  array  containing  the  default  profile 

output  operation  power  codes . 

0PCR(12)  Operation  power  code  for  the  reference  data  from  which 

the  OPCC  data  are  computed  and  the  operation  descrip¬ 
tion  taken. 

OPP (20)  Data  statement  array  containing  all  (MOPC)  defined 

operation  power  codes  for  flight  data.  This  array 
must  be  updated  when  new  codes  are  defined  (see  sub¬ 
routine  SETUPD6) . 
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SYMBOL 


DESCRIPTION 


OTC 
P (2 , 6) 

PC (2 , 12) 

PNLA ( 6 ) 

PNLTA ( 6 ) 

PNLTX (22) 

PNLX (22) 

PRDA(22,6,7) 

PRDC (22,7,2) 

PRDC (22) 

PRDG (22,6,7) 
PRDI (22,6) 

PS ( 2 , 6 ) 

PSC (12) 

PSCF (12) 

PS IF (6) 


Operation  type  code. 

Power  setting  description  data  for  each  reference 
power  setting. 

Power  setting  description  data  for  each  profile 
output  power  setting. 

Mean  reference  perceived  noise  level  in  PNdB  for 
each  power  setting. 

Mean  reference  tone-corrected  perceived  noise  level 
in  PNdB  for  each  power  setting. 

Profile  tone-corrected  perceived  noise  level  for 
the  reference  power  setting  and  airspeed  in  PNdB. 

Profile  perceived  noise  level  for  the  reference  power 
setting  and  airspeed  in  PNdB. 

Profile  data  for  EPNLX,  SELTX ,  and  SELX  for  air-to- 
ground  propagation  for  each  reference  power  setting 
and  adjusted  to  the  program  reference  airspeed  (RV) . 

Final  EPNLX,  SELTX,  and  SELX  profile  data  for  air- 
to-ground  and  ground-to-ground  for  one  power  setting 
(computed  by  subroutine  DELTA6) . 

Array  used  in  subroutine  DELTA6  to  compute  the  profile 
data  for  one  specific  measure  and  type  propagation. 

Same  as  PRDA  above  except  for  ground-to-ground  data. 

Array  equivalent  (subroutine  DELTA6  argument)  to 
specific  elements  of  array  PRDA  or  PRDG.  Contains 
all  available  profile  reference  data  for  one  measure 
and  one  type  propagation. 

Reference  power  setting  data  (value  and  units  in 
character  format)  for  each  reference  operation  power 
code . 

Profile  output  power  setting  for  each  requested 
operation  power  code  in  character  format  (see  code 
sheet) . 

Same  as  PSC (12)  except  in  numeric  format. 

Reference  power  setting  in  numeric  format. 
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SYMBOL 


DESCRIPTION 


PSU  Power  setting  units  for  this  aircraft. 

PTC  Tone  correction  in  dB. 

PV  Profile  version  code  (see  code  sheet) . 

RV  Program  reference  airspeed  in  knots  (RV=250) . 

SELA(6)  Mean  reference  sound  exposure  level  in  dB  for  each 

power  setting. 

SELTA(6)  Mean  reference  tone-corrected  sound  exposure  level 

in  dB  for  each  power  setting . 

SELTX(22)  Profile  tone-corrected  sound  exposure  level  in  dB 

for  a  specific  reference  power  setting  and  airspeed. 

SELX(22)  Profile  sound  exposure  level  in  dB  for  a  specific 

reference  power  setting  and  airspeed. 

SENX(22,7)  Array  equivalent  to  arrays  PNLTX(22)  through  SELX(22) 

in  blank  common. 

SOURCE (2, 6)  Identifies  the  program  and  date  from  each  reference 
dataset. 

SPLA(6, 24)  Mean  reference  sound  pressure  level  in  dB  for  each 

power  condition. 

SPLX(22,24)  Profile  sound  pressure  level  in  dB. 

SR(6,33)  Mean  reference  data  for  each  power  condition;  equiv¬ 

alent  to  arrays  SPLA  through  CA  in  blank  common  (see 
subroutine  CDIST) . 

SX(22)  Distance  data  in  feet  for  the  22  profile  distances. 

TAPE3  File  on  which  profile  datasets  are  written;  TAPE 3 

may  be  copied  or  equivalenced  to  the  PUNCH  file. 

TAPE 5  Input  file  for  all  OMEGA  6  data;  TAPES  is  equivalenced 

to  the  system  INPUT  file. 

TAPE6  Output  file  on  which  all  tab  output  are  printed; 

TAPES  is  equivalenced  to  the  system  OUTPUT  file. 

TAPE7  Input  file  for  all  reference  datasets. 

THETA (6)  Mean  reference  angle  of  maximum  radiation  in  degrees 

for  each  power  condition  (directivity  angle) . 
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SYMBOL 

VFCT 

VREF 


DESCRIPTION 

Variable  used  to  adjust  aircraft  airspeed  from  re¬ 
ference  dataset  airspeed  to  program  reference  air¬ 
speed  or  from  program  reference  to  final  profile  air¬ 
speed. 

Floating  point  value  of  the  aircraft  reference  air¬ 
speed  (IV)  . 


VX(12) 


Aircraft  airspeed  in  knots  for  each  profile  power 
condition. 


DETAILED  DESCRIPTION  OF  THE  OMEGA  10  PROGRAM 


This  section  discusses  the  MAIN  routine  and  each  subroutine 
in  the  OMEGA  10  program.  Procedures  within  most  routines  are  docu¬ 
mented  at  a  level  useful  to  a  programmer  reading  this  while  working 
with  the  code  or  a  reader  interested  in  what  happens  within  a  speci¬ 
fic  subroutine.  Most  routines  contain  numerous  comments  which  should 
be  very  helpful  in  following  the  code. 

The  program  algorithms  and  I/O  are  discussed  in  the  routines 
in  which  they  are  coded.  The  program  code  sheet  in  Appendix  A  and 
the  sample  problem  in  Appendix  C  are  referenced  to  simplify  the 
description  of  the  input  and  output.  The  more  complex  subroutines 
are  supplemented  by  flow  charts  drawn  from  the  point  of  view  of 
function  performed  rather  than  block  instructions. 

COMMON  VARIABLES 

Extensive  use  is  made  of  common  in  the  program  for  communica¬ 
tions  between  the  various  routines.  Many  of  the  storage  locations 
in  blank  common  are  used  in  different  ways  or  with  different  vari¬ 
able  names  throughout  the  program  to  save  core.  Several  of  the 
large  arrays  are  included  in  blank  common  rather  than  labeled  com¬ 
mon  because  on  the  CDC  CYBER  computers  a  large  blank  common  reduces 
the  total  core  required  to  load  and  execute  th~  program.  The  vari¬ 
ables  used  in  labeled  common  are  usually  of  a  similar  type  and/or 
used  in  many  of  the  same  subroutines . 

The  variables  assigned  to  blank  and  labeled  common  in  the 
MAIN  routine  and  the  total  common  length  are  listed  in  Table  1 .  The 
subroutines  in  which  the  labeled  common  are  used  are  listed  in  Table 
2.  All  blank  and  labeled  common  are  included  in  the  MAIN  routine. 

All  common  variables  are  defined  in  the  complete  list  of  symbols  in 
the  previous  section  of  this  report.  The  blank  and  labeled  common 
are  described  in  the  following  paragraphs. 


TABLE  1 

MAIN  ROUTINE  VARIABLES  IN  BLANK  AND  LABELED  COMMON 


Labeled  Common 


Blank  Common 

HEADC 

COMPC 

IBNL 

AC 

IV  (6) 

IBNH 

DATE 

IMS (6) 

L 

ACC 

P (2 , 6) 

SR(6 , 33) 

I  PAGE 

OPC ( 6 ) 

NR  ( 6 ) 

IVX 

OPCC ( 6 ) 

ISRC ( 24 ) 

I  TEMP 

PS (2,6) 

SPLX (22,24) 

IRHUM 

PSC  (12) 

PNLTX (22) 

IVER 

PSU 

PNLX (22) 

CRI 

PSIF ( 6 ) 

ALTX ( 22 ) 

ET  (2) 

PSCF ( 12 ) 

ALX (22) 

OTC 

IREQC (3,12) 

EPNLX (22) 

SX (22) 

SELTX (22) 

ATNC ( 24 ) 

SELX (22) 

ATNR(24) 

PRDA (22,6,7) 

DELN 

PRDG (22,6,7) 

I  PTC 

PRDC(22,7,2) 

I  PROP 

MEAS ( 3 ) 

OPCR ( 12 ) 

PC ( 2 , 12 ) 

OUTC 


ORD (43) 
ISC (9) 
IORD ( 28 ) 
DASH 
DOT 
X 

BLK 
DATEN 
PP ( 84 , 3 ) 


TABLE  2 


SUBROUTINES  CONTAINING  THE  LABELED  COMMON 


HEADC 

COMPC 

OUTC 

HEAD 

CDIST 

I  PA 

OUTG 

HEAD 

OUTG 

OUTJ 

OUTG 

OUTH 

PPPDAT 

OUTJ 

OUTJ 

SUMRY 

PPFDAT 

TITPG 

SETUPD6 

SUMRY 

i 

\ 


I 
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Blank  Common 


The  3069  storage  locations  used  by  blank  common  in  the  main 
routine  is  the  maximum  required  in  any  routine  in  the  program. 

Almost  all  routines  use  some  blank  common  but  only  a  few  require  the 
3069  locations.  The  variable  names  assigned  to  blank  common  vary 
throughout  the  program.  Most  variables  are  defined  to  communicate 
with  several  subroutines  and  then  redefined  for  the  next  series  of 
routines . 

COMPC  Common 

These  variables  are  a  combination  of  output  variables  and 
variables  required  to  compute  the  profile  data  or  both.  The  vari¬ 
able  names  are  the  same  throughout  the  program. 

HEADC  Common 

These  variables  are  primarily  output  variables  required  to 
identify  the  data  being  analyzed.  Most  of  these  data  are  printed 
in  the  page  header  blocks,  the  plot  identification  blocks,  and  the 
output  COMDECK  comment  cards.  The  variable  names  are  the  same 
throughout  the  program. 

OUTC  Common 

These  variables  are  required  to  set  up  and  print  the  tab 
listings  and  plots  in  subroutines  OUTG,  OUTJ  and  OUTH.  If  all  tab 
output  are  deleted  (eg.  in  some  future  preprocessor  version  of  this 
program) ,  this  common  statement  will  no  longer  be  required.  These 
storage  locations  are  defined  the  same  throughout  the  program;  howe- 
ever,  several  variable  names  or  array  dimensions  are  changed  in  sub¬ 
routines  OUTG  and  IPA. 

MAIN  PROGRAM 

MAIN  is  the  executive  routine  for  the  entire  OMEGA  10  program. 
Its  principal  function  is  to  call  the  subroutines  required  to  com¬ 
pute  the  aircraft  analysis.  However,  it  also  reads  all  the  aircraft 
code  sheet  data,  initializes  numerous  program  and  aircraft  variables 
and  reads  and  checks  the  reference  file  (TAPE7)  input  data.  The 


MAIN  routine  is  discussed  in  the  following  paragraphs  using  the 
program  listing  in  Appendix  I  and  the  flowchart  in  Figure  2 
as  a  guide. 

Method 

The  first  segment  of  the  MAIN  routine,  from  the  beginning 
to  label  150,  performs  the  following  data  input  and  initialization 
steps: 

(1)  Numerous  program  and  aircraft  variables  are  initialized. 
The  SX  array  contains  the  22  standard  profile  distances: 

SXj  =  antilog  feet 

where  I  is  the  standard  distance  index  (1=1  to  22) . 

(2)  The  job  control  card  is  read  and  default  values  are  set 
when  they  apply.  For  IPR  equal  to  zero  or  blank  (no-print  mode) , 
the  IPU  flag  is  always  set  equal  to  one  and,  if  all  MEAS  are  blank, 
MEAS^  is  set  equal  to  one  (SELX) .  For  IPR  equal  one  (print  mode) , 
all  MEAS  flags  are  set  equal  to  one  (all  three  measures  are  always 
computed) . 

(3)  The  code  sheet  cards  for  aircraft  ACC  are  read  and 
additional  aircraft  default  parameters  are  set. 

(4)  The  atmospheric  absorption  coefficients  are  computed  for 
non-standard  temperature  and  relative  humidity.  The  coefficients 
for  standard  conditions  (59 °F  and  70%)  are  stored  in  the  ATNR  data 
statement  array. 

(5)  The  TAPE7  reference  file  is  rewound  and  searched  for  all 
reference  datasets  for  aircraft  ACC.  All  data  for  aircraft  ACC 
must  be  back-to-back  in  the  reference  file.  A  maximum  of  six  (MM) 
are  read  and  stored  in  the  program.  If  several  datasets  with  the 
same  operation  power  code  (OPC)  are  in  TAPE7 ,  the  last  dataset  for 
this  OPC  is  stored  in  the  program.  These  reference  datasets  are 
checked  for  errors  in  aircraft  code,  operation  power  code,  and  card 
sequence  number;  an  error  will  abort  this  aircraft  analysis  (not  the 
entire  job) . 


Xiuti.al.iw 

program 

variables 


After  all  input  data  are  read  and  checked,  the  program  calls 
subroutine  SETUPD6  to  apply  the  A"6  rules  in  the  selection  of  the 
one,  two,  or  three  reference  datasets  required  to  compute  the  pro¬ 
file  output  dataset  for  each  power  setting  (PSC) .  The  indices  of 
these  reference  data  for  each  PSC  are  stored  in  array  IREQC .  Also 
flag  array  IREQ  is  set  equal  to  one  when  the  corresponding  reference 
dataset  is  required  to  compute  profile  data.  The  IREQC  and  IREQ 
arrays  are  defined  in  greater  detail  in  comment  statements  in  sub- 
rotuines  SETUPD6  and  DELTA6 . 

For  IPR  greater  than  zero,  the  cover  page  is  printed  by  sub¬ 
routine  TITPG  and  several  plot  arrays  used  to  print  the  plots  in 
subroutines  OUTG  and  OUTJ  are  initialized  by  subroutine  IPA. 

The  label  600  loop  performs  the  following  operations  for  each 
of  the  N  reference  dataset  power  settings  (IREQ>0)  required  to 
compute  the  requested  profile  noise  data  at  the  PSC  power  settings: 

(1)  Subroutines  CPNL,  CPTC  and  CAL  are  called  to  compute 

the  perceived  noise  level  (PNLA) ,  tone  correction  (C  or  PTC) ,  and 
A-weighted  overall  sound  level  (ALA)  from  the  reference  SPL  spectrum 
for  the  Lth  power  setting.  The  PNLA  data  are  stored  in  SRL  2Q  and 
the  ALA  are  in  SRj^  The  tone-corrected  perceived  noise  level 

( PNLTA)  is: 

SRL,29  =  SRL,28+PTC  PNdB 

and  the  tone-corrected  A-weighted  overall  sound  level  (ALTA)  is: 

SRL, 27  =  SRL,26+PTC  *  dBA 

(2)  Subroutine  OUTG  prints  (for  IPR>0)  a  tab  plot  and  listing 
of  tile  SPL  reference  spectrum  and  prints  the  data  computed  in  step  1 
above,  the  EPNLA,  SELA,  SELTA  and  THETA  from  the  reference  dataset,  and 
numerous  additional  identification  parameters,  all  for  the  Lth  re¬ 
ference  power  setting. 

(3)  The  540  loop  calls  subroutine  CDIST  to  compute  all  SPL  and 
single  event  data  for  air-to-ground  and  ground-to-ground  propagation. 
Subroutine  CDIST  extrapolates  the  reference  SPL  spectrum  to  each 
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profile  distance  and  then  computes  all  single  event  data  for  each 
distance.  Subroutine  OUTH  prints  tab  listings  of  these  SPL  and 
single  event  data  and  subroutine  OUTJ  prints  tab  plots  of  the  single 
event  measure  versus  distance  data  (both  only  for  the  IPR>C  for  the 
NP=0  option) .  The  data  printed  here  are  at  the  reference  power  set- 

^  t* 

ting  and  airspeed  (L  power  setting) . 

The  label  700  loop  performs  the  following  operations  for  each 
of  the  NP  output  power  settings  (PSC) : 

(1)  Subroutine  DELTA6  is  called  to  compute  the  final  profile 
data  for  all  single  event  measures  when  IPR>0  and  for  each  requested 
(MEAS>0)  measure  when  IPR=0 .  The  indices  of  the  reference  profile 
data  required  to  interpoalte  or  extrapolate  (apply  A "6  rules)  these 
profile  data  are  given  in  array  IREQC  which  was  evaluated  in  sub¬ 
routine  SETUPD6 .  These  final  profile  data  are  stored  in  array  PRDC. 
After  all  profile  data  are  computed  for  the  n  power  setting  (end 

of  loop  620) ,  the  LFLG  program  flag  is  checked.  If  LFLG  is  less  than 
zero,  no  profile  data  were  computed  for  this  t  power  setting  and 
the  program  skips  down  to  the  end  of  the  700  loop. 

(2)  For  IPRR  equal  to  one,  subroutines  OUTH  and  OUTJ  are  call¬ 
ed  to  print  and  plot  these  final  EPNLX  through  ALTX  profile  data. 

Note  that  whenever  profile  data  are  printed  all  seven  measures  are 
always  computed . 

(3)  For  IPU  greater  than  zero,  the  requested  (MEAS>0)  EPNLX, 
SELTX  and  SELX  profile  measures  are  written  on  file  TAPE3  by  sub¬ 
routine  PPFDAT.  In  the  print  node  (IPR>0),  these  data  are  usually 
not  written  on  TAPE 3 .  A  description  of  the  format  and  content  of 
these  flight  noise  profile  datasets  is  presented  in  Appendix  F. 

After  completing  the  label  700  loop  operations,  subroutine 
SUMRY  is  called  to  print  the  final  aircraft  summary  page  which 
lists  numerous  test  identification  parameters,  identifies  all  re¬ 
ference  datasets  read  for  this  aircraft,  and  lists  the  COMDECK 
names  of  all  reference  datasets  required  to  interpoalte  or  extrapolate 
each  profile  dataset.  Program  control  then  returned  to  statement 
label  10  to  perform  the  next  aircraft  analysis  or  to  terminate  the 
job. 
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SUBROUTINE  ALPH ( REL, TEMP , ABC , IL , IH) 

This  subroutine  is  called  from  the  MAIN  routine  to  compute  the 
atmospheric  absorption  coefficients  for  non-standard  output  tempera¬ 
ture  (TEMP)  and  relative  humidity  (REL) .  The  coefficients  for  stand¬ 
ard  day  conditions  (59°F,  70  percent)  are  stored  in  the  MAIN  routine. 

Subroutine  Arguments 

The  subroutine  arguments  are  defined  as  follows: 

(1)  REL  and  TEMP  are  the  relative  humidity  and  temperature 
( °F)  for  which  the  ABC  data  are  computed. 

(2)  ABC  is  the  absorption  coefficient  array  defined  in  this 
subroutine . 

(3)  IL  and  IH  are  the  lowest  an(d  highest  frequency  indices 
for  which  the  ABC  are  computed.  They  are  1  and  24,  respectively, 
which  corresponds  to  bands  17  and  40. 

Data  Statement  Arrays 

Array  FREQ3  contains  the  geometric  mean  and  lower  limiting 
frequencies  for  1/3  octave  data.  X  and  Y  contain  the  normalized  ab¬ 
solute  humidity  (hnormaiizecj)  and  normalized  molecular  absorption 
coefficient  ^anormaiizec3^  data  given  in  SAE  ARP  866A.  ^ 

Atmospheric  Absorption  Coefficient  Algorithm 

The  atmospheric  absorption  coefficients  for  1/3  octave  fre¬ 
quencies  are  computed  as  described  below. 

(1)  Tne  absolute  humidity  statement  function  is: 

F (TEMP , REL)  =  { (a)  ( REL)  } {antilog  [  (b)  (TEMP)  +  (c)  (TEMP2 ) 

+  (d) (TEMP3) ] } 


where 
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a  =  1.064764  x  10 


b  =  2.288074  x  10 
c  =  -9.589  x  10-5 
d  =  3.0  x  10“7 


(2)  The  normalized  absolute  humidity 
as  a  function  of  frequency. 


(^normalized) 


is  computed 


F (TEMP , REL) 
.FREQ. 1/2 

lioio; 


where 


FREQ  =  the  geometric  mean  or  lower  limiting  frequency 
for  the  1/3  octave  frequency. 

(3)  A  quadratic  Aitkin  interpolation  fucntion  is  used  to  com¬ 
pute  the  normalized  molecular  absorption  coefficient  (ALN)  for  a 
given  normalized  absolute  humidity  (HN) . 

(4)  Then  the  atmospheric  absorption  coefficient  (ABC)  as  a 
function  of  frequency  is: 

ABC  =  (FREQ) (FTl) (ALN) +(FT2) (FREQ)2,05  dB 

where 

FTl  =  (3.788785  x  10“3) (antilog [4 . 6833333  x  10~3 

x  TEJ1P  ]  ) 

FT2  =  (2.4931591  x  10"8) (antilog [6 . 33  x  10-4 

x  TEMP ] ) 

(FREQ) (FTl)  =  maximum  molecular  absorption  coefficient. 

2  05 

(FT2) (FREQ)  *  =  classical  absorption  coefficient. 


FUNCTION  ATKN ( X , Y , N , K , XI ) 

This  function,  is  a  general  AITKEN  interpolation  function,  used 
by  subroutine  ALPH  to  compute  the  normalized  molecular  absorption 
coefficient.  ATKN  was  obtained  from  the  ASD  computer  center  library 
(old  IBM  7094  library) .  Since  this  is  a  common  interpolation  func¬ 
tion  defined  in  most  numerical  methods  texts,  no  additional  descrip¬ 
tion  will  be  given.  The  function  arguments  are  defined  in  comment 
statements  in  the  listing. 

FUNCTION  ICV(DR) 

This  function  is  used  in  numerous  routines  to  convert  variable 
DR  from  floating  point  to  integer.  The  resulting  integer  is  rounded 
up  when  the  fractional  part  is  greater  than  or  equal  to  0.5.  This 
method  gives  more  consistent  and  conservative  noise  measure  data 
than  would  be  obtained  by  simple  truncation. 

SUBROUTINE  HEAD (IP) 

This  subroutine  is  called  from  subroutine  OUTH  to  print  the 
header  block  on  output  pages  H,  I,  L  and  M.  The  IP  subroutine  argu¬ 
ment  identifies  the  page  for  which  the  header  block  is  requested. 
These  header  blocks  are  108  columns  wide  (printer  columns  11  to  119) . 
Each  header  block  contains  the  five  categories  of  data  information 
described  below: 

(1)  The  identification  block  located  in  the  upper  right  corner 
identifies  the  specific  OMEGA  program  that  produced  the  page,  the 
aircraft  code,  the  operation  type  and  power  codes  (OPS) ,  the  profile 
version  code,  the  date  of  that  computer  run,  and  the  page  number  of 
that  particular  computer  printout.  These  identification  data  enable 
AMRL  to  locate  and  track  specific  results  in  our  data  bank  and  re¬ 
construct  the  source  of  the  data  and  all  processing  parameters  and 
computations. 

(2)  The  table  title  printed  across  the  top  describe  the  mea¬ 
sures  or  type  of  data  presented  on  that  page. 
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(3)  The  aircraft  block  identifies  the  specific  aircraft  (eg., 
C-141)  . 

(4)  The  operation  block  presents  the  operation  power  descrip¬ 
tion,  the  power  setting,  and  the  airspeed. 

(5)  The  meteorology  block  gives  the  temperature  (°F),  relative 
humidity  (percent) ,  and  Delta  N  (dB) .  Note  that  Delta  N  is  not  a 
meteorology  related  constant. 

SUBROUTINE  IPA 

This  subroutine  is  called  from  the  MAIN  routine  to  initialize 
the  ORD,  PD,  PB,  and  PM  arrays  used  to  print  the  tab  plots  in  sub¬ 
routines  OUTG  and  OUTJ.  The  content  of  these  arrays  is  obvious  in 
the  coding. 

SUBROUTINE  OUTG 

This  subroutine  is  called  from  the  MAIN  routine  to  print  the 
tab  plot  and  listing  of  the  reference  SPL  spectrum  versus  1/3-octave 
frequency  for  the  Lth  power  setting.  The  PNLA,  PNLTA,  AL,  ALTA,  and 
C  data  computed  from  this  mean  spectrum  and  THETA,  EPNLA,  SELA  and 
SELTA  from  the  reference  dataset  as  well  as  various  operation  and 
identification  parameters  are  also  printed  below  the  tab  plot. 

Method 

The  integer  SPL  data  are  computed  and  stored  in  array  ISRC. 

The  maximum  annotated  abscissa  scale  value  (MX)  is  the  nearest  multi¬ 
ple  of  ten  less  than  seven  plus  the  maximum  SPL.  The  minimum  scale 
value  (MN)  is  70  dB  less  than  MX.  The  abscissa  scale  is  defined  in 
array  ISC.  The  actual  plotted  maximum  and  minimum  are  two  greater 
than  MX  and  two  less  than  MN. 

The  SPL  data  are  scaled,  set  up  in  the  print  array  (PP) ,  and 
printed  in  the  label  150  loop.  The  remainder  of  the  subroutine  com¬ 
pletes  the  tab  plot  and  prints  the  PNLA,  PNLTA,  etc.  data  below  the 
tab  plot.  The  detailed  format  of  these  page  G  data  can  best  be  ob¬ 
served  by  consulting  the  sample  problem  in  Appendix  C.  There  should 


be  sufficient  comment  statements  in  the  subroutine  listing  to  identi¬ 
fy  the  data  being  printed. 

SUBROUTINE  CDIST( IRD , RV) 

This  subroutine  is  called  from  the  MAIN  routine  to  compute  the 
single  event  noise  profile  data  (e.g.,  SELX  versus  distance  for  22 
distances  from  200  to  25,000  feet)  for  air-to-ground  (IPROP=l)  or 

t  u 

ground-to-ground  (IPROP=2)  propagation  for  the  Lr  reference  power 
setting.  These  data  are  also  adjusted  to  the  output  temperature  and 
relative  humidity  and  to  the  program  reference  (RV)  airspeed. 

The  subroutine  argument  IRD  is  the  index  of  the  standard  dis¬ 
tance  which  is  within  1  percent  of  the  reference  distance.  IRD  is 
determined  in  this  subroutine  and  returned  to  the  MAIN  routine. 

The  EA  data  statement  array  contains  the  excess  attenuation 
data  for  frequencies  50  Hz  to  800  Hz  and  distances  400  to  6300  feet. 
These  data  were  obtained  from  Figure  3  which  was  taken  from  AMRL- 
TR-75-50.^  They  are  required  to  compute  the  ground-to-ground 
propagation  data. 

The  flowchart  in  Figure  4  provides  a  brief  description  of  the 
data  computed  by  this  subroutine. 

Extrapolated  SPL  Spectra 

The  first  segment  of  this  subroutine  (label  30  loop)  extra¬ 
polates  the  reference  SPL  spectrum  to  each  of  the  22  profile  dis¬ 
tances  defined  in  array  SX.  These  22  SPL  spectra  are  used  to  com¬ 
pute  the  single  event  profile  data  for  air-to-ground  propagation. 

The  extrapolation  algorithm  is: 

(SX  ) ( ATNC _)  -  (HO) ( ATNRj) 

SPLXI,J  =  splal,j  SNTH 

-  20  log  (SXj/HO )  +  DELN  dB 


where 
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f  «  ONE -THIRD  OCTAVE  BAND  CENTER 
FREQUENCY -Hi  | 

EA  •  0  FOR  f  >  800  Hz  AND  f<  16  Hz  I 


DISTANCE  FROM  SOURCE  (100  METERS) 


2  3 

DISTANCE  FROM  SOURCE  (1000  FEET) 


Figure  3.  Excess  Attenuation 


SPLXt  t  =  the  sound  pressure  level  in  dB  for  the  I  distance 

'  and  jth  band. 

SPLAl  j  =  the  mean  sound  pressure  level  in  dB  for  the  L  ref- 
'  erence  power  setting  and  the  band. 

SXT  =  antilog  )  which  is  the  It^1  profile  distance  in 

x  feet.  1U 

ATNC j  =  the  atmospheric  absorption  coefficients  in  dB  per 

1000  feet  for  the  profile  output  temperature  (ITEMP) 
and  humidity  (IRHUM) . 

ATNRj  =  the  atmospheric  absorption  coefficients  in  dB  per 
1000  feet  for  standard  day  conditions. 

SNTH  =  (1000)  (SIN  [THETAl]). 

THETAl  =  the  directivity  angle  in  degrees  for  the  Lth  power 
setting. 

HO  =  the  reference  minimum  slant  range  in  feet  for  the 

power  setting. 

DELN  ■  the  constant  dB  level  added  to  all  SPL  bands  for  the 
L  power  setting. 

The  following  distance  function  used  later  in  this  subroutine 
to  adjust  the  integrated  single  event  data  for  changes  in  slant  range 
is  also  computed  in  this  segment  of  the  program: 

D2X.J.  =  6  log  (SXj/HO)  . 

Adjust  the  SPL  Spectra  for  Ground-to-Ground  Propagation 


The  SPL  spectra  computed  for  air-to-ground  propagation  are  ad¬ 
justed  for  ground-to-ground  propagation  after  all  air-to-ground  data 
are  computed  for  the  L  reference  power  setting: 

SPLXt  t  *  SPLXt  t  -  EAt  ^  T 

1  f  u  1  ^  cl  -L“j  f  J 

where 

th 

I  =  the  distance  index  defined  for  the  4^  through  16 

distance . 

J  =  the  frequency  band  index  defined  for  frequency  bands 

17  through  29 . 

EA__^  _  =  excess  attenuations  in  dB  for  the  I  distance  and 
'  frequency. 


where  I  is  defined  for  distances  17  through  22  and  J  is  defined  for 
bands  17  through  29.  The  excess  attenuation  is  constant  for  dis¬ 
tances  greater  than  6300  feet. 

A  constant  ground-to-ground  adjustment  factor  of  5  dB  (DG) 
is  also  subtracted  from  the  air-to-ground  SPL  for  all  distances  and 
all  frequency  bands : 

SPLX-  _  =  SPLXt  ,  -  DG 

/  0  J.  f  J 


Single  Event  Noise  Data 


The  statement  label  150  loop  computes  all  single  event  noise 
data  for  each  of  the  profile  distances.  Subroutines  CPNL,  CPTC,  and 
CAL  are  called  to  compute  the  perceived  noise  level  (PNLX) ,  tone 
correction  (PTC)  and  the  A-weighted  overall  sound  level  ( ALX) ,  re¬ 
spectively,  for  each  distance  spectrum.  If  PNLX  data  are  missing 
for  distances  beyond  the  second  distance,  the  PNLX  data  are  extra¬ 
polated  as  follows : 


PNLXj  =  (2) (PNLXI_1)  -  PNLXj_2  PNdB 


The  tone-corrected  perceived  noise  level  (PNLTX)  and  tone- 

1. 1_ 

corrected  A-weight  overal1  sound  level  (ALTX)  for  the  I  distance 
are : 

PNLTXj  =  PNLXj  +  PTC  PNdB 

ALTXj  *  ALXj.  +  PTC  dBA 

The  effective  perceived  noise  level  (EPNLX) ,  sound  exposure 
level  (SELX) ,  and  tone-corrected  sound  exposure  level  (SELTX)  are: 


EPNLXj 

=  EPNLAl  +  PNLTXj  -  PNLTA^ 

+  D2Xj 

EPNdB 

SELXj 

=  SELA.  +  ALXt  -  ALAt  +  D2X_ 

ii  1  ll  1 

dB 

SELTXj 

=  SELTAt  +  ALTXt  -  ALTAt  + 

Li  L  li 

D2XZ 

dB 

where  EPNLA- ,  SELAT ,  and  SELTAt  are  the  mean  data  from  the  reference 

Li  li 

dataset  for  the  L^-h  power  setting.  The  PNLTAL,  ALA^,  and  ALTA^^  were 
computed  from  the  reference  SPL  spectrum  for  the  Lfck  power  setting. 
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Smooth  Tone-Corrected  Data 


The  last  segment  of  this  subroutine  (statement  label  220  loop) 
computes  the  smoothed  ALTX,  PNLTX ,  SELTX ,  and  EPNLX  data  for  each 
distance  (I)  and  adjusts  these  data  to  the  program  reference  air¬ 
speed  : 


ALTXj. 

=  ALXj  +  (C2) (D3 ) 

dBA 

PNLTXj 

=  PNLXj  +  (C2) ( D3 ) 

PNdB 

SELTXj 

=  SELXX  +  (Cl) ( D3 ) 

dB 

EPNLXj 

=  EPNLXj  +  (Cl) (D3)  -  C3X 

EPNdB 

where 

Cl  -  seltxird  -  selxird  dB 

C2  =  ALTXIRD  •  ALXIRD  dBA 

IRD  *  the  index  of  the  reference  distance 

C3j  =  SELTXj  -  SELXj.  dB 

D3  *  1.0  for  distances  200  to  3,150  feet 

D3  *  (0.2)  (18-1)  for  distances  4,000  to  8,000  feet  (1=14  to 

17)  . 

D3  =0.0  for  distances  10,000  to  25,000  feet. 

The  SELTXj  used  to  compute  C3^  above  is  the  unsmoothed  SELTXj  de¬ 
fined  in  the  previous  section;  that  is,  C3j  is  the  tone  correction 
for  the  unsmoothed  SELTX  and  EPNLX  data. 

All  EPNLX,  SELTX,  and  SELX  data  for  the  Lth  reference  power 
setting  are  adjusted  to  the  program  reference  airspeed  and  stored 
in  arrays  PRDA  or  PRDG  as  required  in  subroutine  DELTA6 .  The  four 
remaining  single  event  measures,  PNLTX  through  ALX,  are  also  stored 
in  arrays  PRDA  and  PRDG,  but  without  the  airspeed  adjustment  which 
does  not  apply  to  these  nonintegrated  measures.  It  should  also  be 
noted  here  that  all  seven  measures  are  stored  in  blank  common  arrays 
PNLTX  through  SELX  without  the  airspeed  adjustment. 


For  air-to-ground  propagation  (IPR0P=1): 


prdai,l,i 

=  EPNLXj 

-  VFCT 

EPNdB 

PRDAI,L,2 

*  SELTXj. 

-  VFCT 

dB 

PRDAI,L,3 

=  SELXj 

-  VFCT 

dB 

pRDAI , l, 4 

_  PNLTXj 

PNdB 

PRDAI,L,5 

*  PNLXr 

PNdB 

PRDAI,L,6 

=  ALTXj 

dBA 

PRDAI,L,7 

=  ALXI 

dBA 

>r  ground-to-ground 

propagation  (IPROP=2) : 

PRDGt  r  , 

x  ,  ij  /  X 

=  EPNLXj 

-  VFCT 

EPNdB 

PRDGI,L,2 

=  SELTX]; 

-  VFCT 

dB 

PRDGI,L,3 

=  SELXj 

-  VFCT 

dB 

PRDGI,L,4 

=  PNLTXj 

PNdB 

PRDGI,L,5 

=  PNLXj 

PNdB 

PRDGt  .  c 

i  r  Xj  t  D 

=  altxt 

dBA 

PRDGI.L,7 

=  ALXj 

dBA 

where  VFCT  adjusts  the  airspeed  from  the  reference  file  airspeed  for 
the  power  setting  (IVL)  to  the  program  reference  airspeed  (RV) 
in  knots : 

VFCT  »  10  log  (—•)  . 

1  L 

These  single  event  measure  data,  which  were' computed  from  the  single 
event  reference  data  and  the  reference. SPL  spectrum  extrapolated  to 
each  of  the  22  profile  distances,  are  frequently  identified  as 
"reference  file  measure  data"  or  "reference  file  profile  data”  in 
the  remainder  of  this  OMEGA  10  documentation. 
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SUBROUTINE  CPNL(I,ID) 

This  subroutine  is  called  from  the  MAIN  routine  and  sub¬ 
routine  CDIST  to  compute  the  perceived  noise  level  (PNL)  for  the 
Ith  spectrum  using  the  standard  method  described  in  several  re- 

14  5 ) 

ferences .  '  The  PNL  quantifies  the  relative  subjective  noisi¬ 

ness  of  different  sound  spectra  and  is  widely  used  to  assess  the 

(6  7 ) 

annoyance  of  individual  sounds.  '  The  ID  subroutine  argument 
determines  whether  the  PNL  data  are  computed  from  the  mean  SPL 
spectrum  of  the  Ith  power  setting  ( SPLAT  _  for  ID=0)  or  the  extra- 
polated  SPL  spectrum  for  the  Ith  distance  (SPLXT  T  for  ID=1) . 

Blank  common  variables  IBNL  and  IBNH  are  the  indices  of 
frequency  bands  17  and  40  (frequencies  50  to  10000  Hz)  as  required 
by  the  PNL  algorithm.  FJ  is  a  PNL  weighting  factor  defined  for  the 
1/3  octave  band  data. 

Method 

PNL  is  calculated  as  follows  from  each  1/3  octave  band  SPL 
spectrum  (I) : 

(1)  Convert  each  1/3  octave  band  SPL  (array  SPLA  or  SPLX) 
for  frequency  band  indices  IBNL  to  IBNH  to  perceived  noisiness 
FNj  using  function  FNOY  which  defines  the  noisiness  of  sound  in 
noy  units  as  a  function  of  frequency  and  SPL.  Also  sum  these  noy 
values  (SUM)  and  determine  the  largest  value  (AMX) . 

(2)  Determine  the  total  perceived  noisiness,  SUM,  as  follows 

SUM  =  (FJ) l y  (FN_) -AMX] +AMX  noys 

J  J 

where  FJ  =0.15  for  1/3  octave  band  data. 

FN_  =  perceived  noisiness  value  for  frequency  index 
J  from  Step  (1) . 

AMX  =  number  of  noys  in  the  noisiest  band. 

(3)  Calculate  PNL: 


PNL  =  40+33.3  log  (SUM) 


PNdB 


When  one  or  more  SPL  data  points  are  beyond  the  range  of  the 
noy  algorithm,  PNL  is  set  equal  to  9999. 

FUNCTION  FNOY (SPL , JJ) 

This  function  is  used  by  subroutine  CPNL  to  compute  the  per¬ 
ceived  noisiness  value  (in  noys)  for  a  given  1/3  octave  band  sound 
pressure  level  (SPL)  using  the  method  described  in  SAE  ARP  865A. ^ 
Function  argument  JJ  is  the  frequency  band  index  (numeric  value  of 
1  to  24)  corresponding  to  the  24  frequency  bands  from  50  to  10,000 
Hz  and  used  in  data  statement  arrays  FL  and  FM. 

Method 

The  perceived  noisiness  value  FNOY,  in  noys,  for  a  particular 
frequency  band  (JJ)  is  related  to  the  band  sound  pressure  level,  SPL, 
by  the  following  equations: 


(1) 

For 

FL J J , 1 

£  SPL  < 

FL JJ ,  2 

FNOY  = 

0.1  antilog  [ (FMjj  ^  x )  (SPL  -  FLJJfl)] 

noys 

(2) 

For 

FLJJ, 2 

<  SPL  < 

FLJJ „3 

FNOY  = 

antilog 

t ( FMjj , 2 ) (SPL  -  FLJJ>3) J 

noys 

(3) 

For 

FLJJ, 3 

<  SPL  < 

FLJJ, 4 

FNOY  = 

antilog 

[(FMJJ,3)(SPL  "  FLJJ,3)] 

noys 

(4) 

For 

FLtt  4 

JJ  f  4 

£  SPL  < 

150 

FNOY  = 

antilog 

[(FMJJ,4)(SPL  "  FLJJ,5>J 

noys 

(5) 

For 

SPL  <  FLJJ,1 

FNOY  = 

o 

o 

noys 

(6)  For  SPL  >  150,  FNOY  is  undefined  because  it  is  beyond  the 
range  of  the  perceived  noisiness  algorithm  (carried  as 
5001) . 

Data  statement  arrays  FL(24,5)  and  FM(24,4)  contain  the  L^  to 
L4  and  M.  to  versus  frequency  data  listed  in  Table  3  (from  SAE 
ARP  865A*5) ) . 


DATA  STORED  IN  ARRAYS  FL(24,  5)  AND  FM(24,  4)  IN  FUNCTION  FNOY 
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SUBROUTINE  CPTC( PTC , I , ID) 

This  subroutine  is  called  from  the  MAIN  routine  and  from  sub- 

th 

routine  CDIST  to  compute  the  tone  correction  (PTC)  for  the  1  spec 

th  t 

trum.  This  1  spectrum  will  be  from  array  SPLAT  for  the  i 

power  setting  when  the  ID  subroutine  argument  is  zero  (CPTC  called 

from  MAIN)  or  from  array  SPLXT  T  for  the  I1"  distance  for  ID=1 

(CPTC  called  from  CDIST)  .  The  blank  common  array  IPTC-j.  is  used  to 

store  the  frequency  index  (J)  of  the  frequency  band  which  deter- 

mined  the  tone  correction  for  the  i  spectrum. 

This  subroutine  uses  the  procedure  described  in  FAR  Part  3b, 

(4 ) 

Section  36.3.  This  procedure  requires  SPL  data  for  1/3  octave 

frequency  bands  80  to  10,000  Hz;  however,  this  subroutine  will  com¬ 
pute  PTC  when  SPL  data  greater  than  or  equal  to  20  dB  are  available 
for  at  least  10  consecutive  bands  within  this  1/3  octave  frequency 
band  range  (only  SPL  data  greater  than  or  equal  to  20  dB  are  used) . 

Method 

Before  applying  the  tone  correction  procedure,  this  subroutine 
determine  the  largest  SPL  data  point  in  the  spectrum  and  also  the 
number  of  consecutive  SPL  data  points  greater  than  20  dB  on  each  side 
of  this  peak  value  (statement  labels  370  to  490)  .  If  the  total  num  ¬ 
ber  of  points  is  less  than  ten,  tone  correction  is  undefined  (9999) 
and  control  is  returned  to  the  calling  routine.  When  at  least  ten 
points  are  available,  the  tone  correction  procedure  is  applied  over 
redefined  frequency  band  indie ies  IL2  to  IHl. 

The  remainder  of  this  subroutine  (statement  labels  5  to  220) 
is  a  direct  application  of  the  ten  step  tone  correction  procedure 
defined  in  FAR  Part  36,  Section  36.3.  The  final  tone  correction 
is  returned  in  variable  PTC.  The  following  comments  compare  the 
notation  used  in  the  coding  and  in  the  FAR  Part  36  description: 

(1)  The  frequency  band  index  i  in  Part  36  corresponds  to  J 
in  the  coding.  Spectrum  index  K  doesn't  apply  because  the  subroutine 
operates  on  one  spectrum  per  call. 
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one. 


(2)  Circled  SPL  data  are  denoted  by  variable  ICTj  equal  to 

(3)  All  other  variable  correspondence  should  be  obvious. 
SUBROUTINE  CAL(I,ID) 

This  subroutine  is  called  from  the  MAIN  routine  and  from  sub¬ 
routine  CDIST  to  compute  the  A-weighting  overall  sound  level  (AL) 
for  the  1^  spectrum.  The  subroutine  argument  ID  determines  whether 
the  AL  data  are  computed  from  the  mean  SPL  spectrum  for  the  I  power 
setting  or  the  extrapolated  SPL  spectrum  for  the  I*"*"1  distance.  ID 
is  defined  the  same  as  in  subroutines  CPTC  and  CPNL. 

Method 

AL  is  defined  as  follows: 

SPL-  +AW 

ALj  =  10  log  [  I  antilog  ( - ^ - -)  ]  dBA 

J 

where 

J  *  the  frequency  band  index;  J  is  defined  for  bands  17 

to  40  (indicies  1  to  24) . 

SPLj.  _  =  the  sound  pressure  level  for  the  1^  spectrum  or  I 
'  distance  and  the  jth  band  (arrays  SPLX  or  SPLA) . 

AWt  =  the  A-weighting  relative  response  in  dB  for  the  Jth 
J  band  (see  Table  4) . 

If  the  AL  data  are  undefined  for  the  1^  spectrum,  ALj  is  set  equal 
to  9999;  this  should  never  occur  in  this  program. 

SUBROUTINE  OUTH(  IRD , IPTC , SENX, LFLG , IPF) 

This  subroutine  is  called  from  the  MAIN  routine  to  print  the 
SPL  spectra  versus  slant  distance  on  pages  H  and  L  and/or  the  single 
event  noise  data  (seven  measures)  versus  slant  distances  on  pages  I 
and  M.  The  air-to-ground  data  (IPR0P=1)  are  printed  on  pages  H  and 
I  and  the  ground-to-ground  data  (IPROP=2)  on  pages  L  and  M.  Sub¬ 
routine  argument  IRD  is  the  index  of  the  profile  distance  which  is 


TABLE  4 

WEIGHTING  FACTORS 


Frequency 

(Hz) 

Relative  Response  (dB) 

A-Weighting 

50 

-30.2 

63 

-26.2 

80 

-22.5 

100 

-19.1 

125 

-16.1 

160 

-13.4 

200 

-10.9 

250 

-  8.6 

315 

-  6.6 

400 

-  4.8 

500 

-  3.2 

630 

-  1.9 

800 

-  0.8 

1000 

0 

1250 

0.6 

1600 

1.0 

2000 

1.2 

2500 

1.3 

3150 

1.2 

4000 

1.0 

5000 

0.5 

6300 

-  0.1 

8000 

-  1.1 

10000 

-  2.5 

within  1  percent  of  the  reference  distance  tor  this  power  setting. 
The  remaining  arguments  are  defined  in  subroutine  comment  statements 
The  data  format  and  page  layout  for  each  page  can  best  be  determined 
by  consulting  the  sample  problem  in  Appendix  C. 

Print  SPL  Spectra 

The  first  segment  of  this  subroutine  which  is  omitted  when 
IPF> 2  prints  the  SPL  spectra  versus ' distance  data  for  the  22  profile 
distances.  Subroutine  HEAD  is  called  to  print  the  page  header  block 
The  statement  label  50  loop  sets  up  the  integer  and  variable  format 
arrays  and  prints  each  of  the  22  spectra.  All  SPL  data  less  than 
zero  are  omitted  from  the  printout  (blanked  out) .  The  frequency 
band  which  determines  the  tone  correction  in  the  reference  distance 
spectrum  is  flagged  with  the  ">"  symbol.  The  variable  format  is  re¬ 
quired  to  accommodate  the  blank  and  flagged  data. 


Print  Single  Event  Data 

The  remainder  of  this  subroutine  (from  label  50)  prints  the 
single  event  versus  distance  data  for  the  22  profile  distances. 

The  sequence  of  these  seven  single  event  measures  in  array  SENX  is 
determined  by  the  IPF  program  flag.  For  IPF^2,  the  sequence  is 
PNLTX,  PNLX ,  ALTX,  ALX,  EPNLX,  SELTX  and  SELX;  while  for  IPF >2, 
the  sequence  is  EPNLX,  SELTX,  SELX,  PNLTX,  PNLX,  ALTX  and  ALX. 
Neither  sequence  is  the  same  as  the  print  sequence  which  is  just 
the  reverse  of  the  latter  case  (IPF>2) .  Thus,  index  variable  JD 
is  setup  to  identify  the  single  event  data  in  array  SENX  in  the 
required  print  sequence.  For  the  IPF>2  case,  variable  JD  is  defined 
by  the  ISEQD  data  statement  array  which  contains  the  indices  of 
these  single  event  measures  in  the  print  sequence.  Array  ISEQF 
contains  the  variable  format  index  corresponding  to  the  JD  single 
event  variable.  The  data  are  printed  with  a  variable  format  to 
blank  out  all  negative  single  event  data. 


Subroutine  HEAD  is  called  to  print  the  page  I  or  M  header 
block.  The  label  100  loop  prints  the  measure  data  for  each  distance. 
The  label  80  loop  sets  up  the  variable  print  and  format  arrays  for 

i.  y.^ 

each  measure  for  the  I  distance.  These  variable  arrays  are  re¬ 
quired  to  blank  out  data  less  than  zero. 

SUBROUTINE  OUTJ( IP , SENX , LFLG) 

This  subroutine  is  called  from  the  MAIN  routine  to  print  the 

single  event  measure  tab  plots  for  air-to-ground  (IPROP=l,  pages 

J  and  K)  or  ground-to-ground  (IPROP=2,  pages  N  and  0)  data  for  the 
till 

u  power  setting.  The  value  of  the  subroutine  argument  IP  deter¬ 
mines  the  single  event  measures  plotted  on  each  page.  When  IP  is 
one  or  four,  the  PNLTX,  PNLX,  ALTX,  and  ALX  data  are  plotted  on 
pages  J  or  N,  and  when  IP  is  two  or  three,  the  EPNLX ,  SELTX ,  and 
SELX  data  are  plotted  on  pages  K  and  0.  This  IP  program  flag  aisc 
determines  the  sequence  in  which  these  single  event  data  are  store  i 
in  array  SENX.  This  data  sequence  is  described  in  detail  in  sub¬ 
routine  OUTH  where  program  flag  IPF  is  equivalent  to  IP  in  this 
routine.  Subroutine  argument  LFLG  is  a  footnote  flag;  for  LFLG-.;., 
an  extrapolation  limit  flag  is  printed  at  the  bottom  of  each  page. 

The  plot  format  and  page  layout  can  best  be  determined  by  consult¬ 
ing  the  sample  problem  in  Appendix  C. 

Method 

Each  tab  plot  contains  the  distance  scale  on  the  ordinate  and 
the  dB  scale  on  the  abscissa.  The  distance  scale  always  contains 
the  same  22  profile  distances  from  200  to  25,000  feet.  The  absciss.? 
scale  is  8.3-inches  wide  and  covers  an  83  dB  range.  The  maximum 
abscissa  scale  value  is  determined  from  the  measure  data  for  the 
first  ten  distances  (smallest  distances) .  The  maximum  annotated 
scale  value  is  the  largest  multiple  of  ten  which  is  less  than  the 
largest  measure  plus  eight.  The  largest  plotted  point  may  be  one 
larger  than  this  multiple  of  ten.  All  data  outside  the  abscissa 
scale  range  are  deleted  from  the  plot. 


The  label  400  loop  sets  up  the  plot  array  and  the  grid  pattern 
for  each  profile  distance.  An  identification  block  is  printed  in 
the  upper  left  corner  and  a  legend  block  is  printed  in  the  lower 
right  corner  of  the  grid.  These  blocks  do  not  normally  interfere 
with  the  plotted  data  points;  however,  they  do  make  the  coding  more 
complex  and  thus  more  difficult  to  change. 

The  label  150  loop  scales  the  three  or  four  (Jl  to  J2)  data 
points  plotted  for  each  distance,  sets  up  the  scaled  point  in  the 
plot  array  with  the  correct  symbol,  and  saves  the  data  presently  in 
the  plot  array.  There  should  be  sufficient  comment  statements  in 
this  subroutine  to  follow  the  data  being  printed;  thus  no  additional 
documentation  will  be  given  here . 

SUBROUTINE  PPFDAT ( PRDC , LFLG , COMD , I J) 

This  subroutine  is  called  from  the  MAIN  routine  to  write  the 
profile  datasets  on  file  TAPE 3  for  the  I,  output  power  setting  (PSC) 
The  TAPE 3  file  may  be  equivalenced  or  copied  to  the  PUNCH  file.  The 
air-to-ground  and  ground-to-ground  data  are  in  c.rray  PRDC  and  LFLG 
is  a  program  flag  which  when  equal  to  one  adds  an  additional  extra¬ 
polation  limit  comment  line  to  each  profile  dataset.  The  format 
and  content  of  these  profile  datasets  is  given  in  Appendix  F.  There 
should  be  sufficient  comment  statements  in  this  subroutine  to  follow 
the  data  being  written. 

SUBROUTINE  TITPG(IPR) 

This  subroutine  is  called  from  the  MAIN  routine  to  print  the 
aircraft  title  page  which  identifies  the  aircraft  being  analyzed 
and  the  data  computed  in  the  analysis.  The  format  and  content  of 
this  page  can  best  be  determined  by  consulting  the  sample  problem 
in  Appendix  C.  There  should  be  sufficient  comment  statements  in 
the  coding  to  follow  the  information  being  printed.  IPR  is  the 
program  print  flag. 


SUBROUTINE  SETUPD6 ( IREQ , N , NP , ACC , ITP , IAP  f IHP) 

This  subroutine  is  called  from  the  MAIN  routine  to  apply  the 
A "6  rules  to  determine  the  reference  data  required  to  compute  the 
profile  data  at  the  requested  output  power  setting  (PSC) .  The  IREQ , 

N,  NP,  ITP,  IAP,  and  IHP  subroutine  arguments  and  numerous  additional 
variables  are  defined  in  the  comment  statements  at  the  beginning  of 
this  subroutine.  Argument  ACC  is  the  aircraft  code. 

Method 

This  section  contains  a  summary  of  the  A"6  rules  used  in  this 
subroutine  and  in  subroutine  DELTA6  to  determine  the  two  or  four  slope 
reference  datasets  required  to  compute  the  profile  measure  data  for 
each  output  power  setting  (PSC  or  PSCF) .  The  reference  operation 
power  code  (OPCR)  given  on  the  code  sheet  identifies  the  extrapolated 
reference  profile  data  from  which  profile  measure  data  for  this  PSC 
are  interpolated  or  extrapolated  and  also  determines  the  operation 
power  description.  This  OPCR  must  be  in  the  reference  file  or  data 
for  this  PSC  are  omitted  from  the  computer  run.  The  OPCR  and  slope 
reference  dataset  array  indices  are  stored  in  array  IREQC  for  each 
PSC.  The  A" 6  rules  are  defined  as  follows: 

(1)  For  OPCR  equal  to  01,  02,  08,  09,  10,  17,  18,  or  19,  the 
requested  power  setting  (PSC)  must  be  the  same  as  the  reference  file 
power  setting  (PS) .  If  it  is  not  the  same,  the  PSC  data  are  deleted 
from  the  run.  For  OPCR  equal  to  17,  18  or  19,  the  reference  file 
airspeed  (IV)  must  also  be  the  same  as  the  requested  airspeed  (VX) . 
This  rule  is  applied  in  this  subroutine  by  labels  360  to  365  within 
the  label  400  loop. 

(2)  For  OPCR  equal  to  15  or  16  (STOL  takeoff  and  approach) , 
interpolations  and  extrapolations  will  be  made  from  the  slope  of  a 
straight  line  fit  of  measure  data  versus  power  setting  between  15 
and  16.  Both  15  and  16  must  be  in  the  reference  file  or  the  re¬ 
quested  power  setting  is  deleted  from  the  run.  This  rule  is  appliec 
by  labels  260  to  300  in  this  subroutine. 

(3)  For  OPCR  equal  to  03,  11  or  14  (takeoff,  max  rated  thrust 
or  intermed  power  (mil)),  interpoaltions  and  extrapolations  will 

be  made  from  the  slope  of  a  straight  line  fit  between  05  (approach) 
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03,  11  or  14.  If  05  is  missing,  the  requested  power  setting  will 
be  deleted  from  the  run.  It  is  assumed  that  only  03,  11  or  14  will 
be  given  in  the  reference  file  and  requested  as  a  A"6  reference 
(OPCR) ;  however,  if  03  and  11  or  14  are  in  the  reference  file,  in¬ 
terpolations  and  extrapolations  will  be  made  from  the  slope  of  a 
straight  line  fit  between  05  and  03.  For  example,  if  03,  05  and  11 
are  in  the  reference  file  and  OPCR=ll  for  one  of  the  requested  power 
settings  (PSC) ,  the  PSC  will  be  interpolated  or  extrapolated  using 
the  05  to  03  slope  with  the  11  reference  data  as  the  reference 
point.  This  rule  is  applied  between  labels  20  and  40  and  labels 
160  and  180  in  this  subroutine. 

(4)  For  an  OPCR  equal  to  05  (approach)  and  a  PSC  greater  than 
or  equal  to  the  approach  power  setting,  interpolations  and  extra¬ 
polations  will  be  made  from  the  slope  of  a  straight  line  fit  between 
05  and  03  (takeoff)  or  05  and  11  or  14.  When  the  PSC  is  less  than 
the  approach  power  setting,  the  interpolations  and  extrapolations 
will  be  made  from  the  slope  of  a  straight  line  fit  between  05  and 
the  highest  ranking  power  setting  less  than  approach  as  defined  in 
item  6  below.  If  there  is  no  reference  file  power  setting  less  than 
appraoch,  the  PSC  is  extrapolated  using  the  05  and  03  slope.  This 
rule  is  applied  by  labels  180  to  200  in  this  subroutine. 

(5)  For  an  OPCR  equal  to  12  (normal  rated  thrust) ,  extrapo¬ 
lations  will  be  made  from  the  slope  of  a  straight  line  fit  between 
05  (approach)  and  03  (takeoff) .  The  OPCR  equal  to  12  reference 
measure  (PNLX,  PNLTX,  ALX,  ALTX,  SELX,  SELTX  or  EPNLX)  data  are  used 
as  the  slope  reference  point.  The  program  assumes  that  the  request¬ 
ed  power  setting  (PSC)  and  the  reference  file  power  setting  (PS)  for 
OPCR=12  are  between  the  reference  file  03  and  05  power  settings;  if 
the  PSC  is  not,  a  warning  message  is  printed  and  the  data  are  still 
extrapolated  from  the  03  to  05  slope  line.  This  rule  is  applied  by 
labels  230  to  250  in  this  subroutine. 

(6)  For  an  OPCR  equal  to  04,  06,  07,  or  13  the  reference  file 
is  searched  for  all  the  04,  06,  07,  and  13  operation  power  codes 
which  have  a  power  setting  less  than  the  05  (approach)  power  setting 
If  two  or  more  are  found,  they  are  ranked  in  the  following  highest 
to  lowest  ranking  order:  13,  06,  04,  and  07. 


If  the  reference  measure  (PNLX,  PNLTX,  etc)  data  at  the  reference 
distance  (1000  feet)  for  the  highest  ranking  power  setting  is  less 
than  the  reference  measure  data  at  approach  power  (05),  then  the 
slope  of  a  straight  line  fit  between  this  highest  ranking  power 
setting  and  the  approach  power  will  be  used  for  all  interpolations 
or  extrapolations  for  power  settings  less  than  approach.  If  the 
reference  measure  data  at  the  reference  distance  for  the  highest 
ranking  power  setting  is  greater  than  or  equal  to  the  reference 
measure  data  at  approach  power  (05)  ,  there  are  no  corrections  to  the 
data  (ie.,  slope=0)  for  power  settings  less  than  approach  power. 

Next  one  of  the  following  four  items  applies  depending  on  the  magni¬ 
tude  of  PS  and  PSC  relative  to  the  approach  power. 

(a)  When  the  reference  file  power  setting  (PS)  and 
the  requested  profile  power  setting  (PSC)  are  greater  than  or  equal 
to  the  approach  reference  file  power  setting,  extrapolations  are 
made  from  the  slope  of  a  straight  line  fit  between  03  (takeoff)  and 
05  (approach) .  This  slope  line  uses  the  OPCR  measure  data  and  power 
setting  as  the  reference  point. 

(b)  When  the  reference  file  power  setting  (PS)  and 
the  requested  profile  power  setting  (PSC)  for  one  of  the  above 
OPCR's  are  both  less  than  the  approach  reference  file  power  setting, 
all  interpolations  or  extrapolations  are  made  from  the  slope  of  a 
straight  line  fit  between  the  approach  and  highest  ranking  power 
settings  as  explained  in  item  (6)  above  (slope  may  be  zero) . 

(c)  When  the  reference  file  power  setting  (PS)  for 
one  of  the  above  OPCR's  is  greater  than  the  approach  reference  file 
power  setting  and  the  corresponding  profile  power  setting  (PSC)  is 
less  than  the  approach  reference  file  power  setting,  the  extrapola¬ 
tions  are  made  in  two  steps.  First,  the  measure  data  are  extrapola¬ 
ted  to  the  approach  power  setting  using  the  slope  of  a  straight  line 
fit  between  the  measure  data  at  approach  power  and  the  measure  data 
at  takeoff  power,  with  the  OPCR  measure  data  and  power  setting  as 
the  reference  point.  Second,  the  measure  data  are  extrapolated 
from  the  approach  power  to  the  requested  power  setting  (PSC)  using 
the  slope  of  a  straight  line  fit  between  the  measure  data  at  approach 
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power  and  the  highest  ranking  power  setting  less  than  approach  as 
described  in  item  (6)  above.  This  second  slope  may  be  zero.  If 
there  are  no  reference  file  power  settings  less  than  approach,  the 
takeoff  to  approach  slope  is  used  to  compute  the  requested  power 
setting  data  (PSC) . 

(d)  When  the  reference  file  power  setting  (PS)  for 
one  of  the  above  OPCR's  is  less  than  the  approach  reference  file 
power  setting  and  the  corresponding  profile  power  setting  (PSC)  is 
greater  than  the  approach  reference  file  power  setting,  the  extra¬ 
polations  are,  once  again,  made  in  two  steps.  First,  the  measure 
data  are  extrapolated  to  the  approach  power  setting  using  the  slope 
of  a  straight  line  fit  between  the  measure  data  at  approach  power 
and  the  measured  data  at  the  highest  ranking  power  setting  less 
than  approach,  with  the  OPCR  measure  data  and  power  setting  as  the 
reference  point  as  described  in  item  (6)  above  (this  slope  may  be 
zero) .  Second,  the  measure  data  are  extrapolated  from  the  approach 
power  to  the  requested  power  setting  (PSC)  using  the  slope  of  a 
straight  line  fit  between  the  measure  data  at  approach  and  takeoff 
power  settings.  If  there  is  no  reference  file  takeoff  power  setting, 
the  first  slope  is  used  to  compute  the  requested  power  setting  data. 

Note  that  each  reference  to  takeoff  power  (03)  in  items  (a)  through 
(d)  could  be  replaced  by  max  rated  thrust  (11)  or  intermediate 
power  (mil)  (14)  when  takeoff  power  is  not  in  the  reference  file. 
Parts  of  this  rule  are  applied  in  this  subroutine  between  labels  55 
and  90  and  labels  365  and  360;  however,  those  parts  which  require 
that  the  measure  data  be  checked  or  which  require  a  two  step  extra¬ 
polation  are  applied  in  subroutine  DELTA6. 

(7)  No  extrapolations  at  the  1000  foot  reference  distance 
for  air-to-graound  SELX  (or  SELTX  or  EPNLX  when  only  one  measure 
is  computed)  data  may  exceed  5  dB.  If  the  5  dB  limit  is  exceeded, 
a  new  power  setting  (PSC)  corresponding  to  this  5  db  limit  is  com¬ 
puted  using  the  same  straight  line  fit  slope.  The  comment  "Power 
setting  extrapolation  limited  by  AFAMRL/BBE,  WPAFB"  is  added  to 

^  u 

each  profile  dataset  (4  comment  card)  and  printed  at  the  bottom 


of  output  pages  I,  K,  M,  and  0  and  on  the  summary  page.  This  ex¬ 
trapolation  limit  is  checked  for  each  segment  of  the  two  step 
extrapolations  in  items  6c  and  6d  above.  This  rule  is  applied  in 
subroutine  DELTA 6  described  in  the  next  section. 

All  references  in  the  above  A"6  rules  to  straight  line  fits 
between  specific  operation  power  codes  is  assumed  to  mean  a  straight 
line  fit  between  PNLX,  PNLTX ,  ALX ,  ALTX ,  SELX,  SELTX  or  EPNLX  mea¬ 
sure  versus  power  setting  data  for  those  operation  power  codes. 
Extrapolation  or  interpolation  of  data  is  assumed  to  mean  the  ex¬ 
trapolation  or  interpolation  of  the  measure  (PNLX  etc.)  data  for  a 
given  power  setting.  This  straight  line  fit  algorithm  is  defined 
and  applied  in  subroutine  DELTA6 . 

This  subroutine  defines  the  indices  of  the  slope  (as  required) 
and  OPCR  reference  datasets  in  array  IREQC  for  each  output  power 
setting  (PSC)  as  required  in  items  1  to  6  above.  In  item  (6c)  and 
(6d)  where  two  slopes  are  required,  the  second  slope  points  are 
determine  in  subroutine  DELTA6 .  Actually,  almost  all  item  6  logic 
is  defined  in  subroutine  DELTA6 ;  only  the  highest  ranking  power 
setting  less  than  approach,  the  first  slope  indices,  and  the  OPCR 
index  are  determined  in  this  subroutine.  There  should  be  sufficient 
comments  in  this  subroutine  to  follow  the  coding  of  the  above  rules. 
The  flowchart  in  Figure  5  may  also  be  an  aid  in  following  the  coding 
and  determining  what  rules  are  applied  in  this  subroutine. 

When  new  operation  power  codes  are  added  to  the  NOISEFILE 
flight  noise  database,  they  must  be  added  to  the  data  statement 
array  OPP  and  the  above  rules  must  be  modified  to  account  for  the 
new  power  codes. 


61 


SUBROUTINE  DELTA6 ( PRDI , PRDC , K , PSIF , PSCF , I REQC , LFLG , VFCT , LIM , PSC , EXTMX , 
I TP , IAP , IHP , I REF ) 


This  subroutine  is  called  from  the  MAIN  routine  to  apply  the 
i"6  algorithms  in  computing  the  final  flight  noise  PN'LX,  PNLTX ,  ALX , 
ALTX,  SELX,  SELTX  and  EPNLX  profile  data  at  the  requested  power  set¬ 
ting  (PSC)  and  airspeed.  All  the  subroutine  arguments  are  defined 
in  the  comment  section  at  the  beginning  of  this  subroutine  (source 
listing) .  The  term  "reference  file  measure  data"  used  in  the  follow¬ 
ing  paragraphs  is  the  measure  data  (PNLX,  etc)  derived  from  the  SPL 
reference  spectrum  after  it  is  extrapolated  to  each  of  the  22  profile 
distances  (see  subroutine  CDIST) . 


Method 


The  following  linear  interpolation  (or  extrapolation)  function 
(F)  is  defined  in  this  subroutine  and  used  to  compute  the  single  event 
noise  measures  at  each  profile  distance: 


where 


YC 


Y2-Y1 , 
X2-X1 


( XC-XB ) 


+  YB 


YC  =  the  interpolated  or  extrapolated  measure  data  for 

the  PSC  power  setting  (array  PRDC)  ; 

Y1  and  Y2  =  the  reference  file  measure  data  used  to  compute 
the  slope  (array  PRDI) ; 

YB  =  the  reference  file  measure  data  reference  point 

defined  by  OPCR  (array  PRDI) ; 

XI  and  X2  =  the  reference  file  power  setting  data  used  to 
compute  the  slope  (array  PSIF) ; 

XC  =  the  requested  power  setting  (array  PSCF) ;  and 

XB  =  the  reference  file  power  setting  defined  by  OPCR 

(array  PSIF) . 


The  airspeed  adjustment  factor  (VFCT)  is  subtracted  from  this  YC 
data  where 


VFCT 


VXL 

10  log  <-g±> 
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VXT  =  profile  output  airspeed  (knots)  for  l 
RV  =  program  reference  airspeed  (presently  250  knots) . 

The  linear  interpolation  algorithm  used  to  compute  the  limit¬ 
ing  power  setting  when  the  noise  level  extrapolation  limit  (EXTMX) 
is  exceeded  is: 

xc  =  xb  +  (|§r|f)  (X2-XD 


where 

XC  =  the  new  PSC  power  setting  (PSCF)  corresponding  to  the 
limiting  measure  value  (YL) ;  and 

YL  =  the  limiting  measure  value  ( YL=YB+EXTMX) ,  YL  is  EXT  in 
the  program. 

All  other  variables  are  defined  above. 

There  should  be  sufficient  comment  statements  in  the  source 
listing  to  follow  the  coding;  however,  the  following  outline  of  this 
subroutine  may  be  helpful.  The  principle  segments  of  this  subroutine 
are : 

(1)  The  statement  label  40  loop  applies  the  above  interpola¬ 
tion  function  and  airspeed  adjustment  to  compute  the  measure  data 
for  all  A"6  rules  except  rule  one  and  part  of  rule  six  (see  sub¬ 
routine  SETUPD6) . 

(2)  The  statement  label  80  loop  applies  the  airspeed  adjust¬ 
ment  to  compute  the  measure  data  when  no  A"6  adjustments  are  required. 

(3)  Label  100  sets  the  LFLG  program  flag  when  insufficient 
data  were  available  to  compute  the  measure  data. 

(4)  The  label  110  to  150  (exclusive)  segment  checks  the  mea¬ 
sure  and  power  setting  data  at  the  1000  foot  reference  distance  to 
determine  if  the  reference  (PS)  and  output  (PSC)  power  settings  are 
on  opposite  sides  of  approach  power  or  if  the  measure  data  for  the 
highest  ranking  power  setting  less  than  approach  power  are  greater 
than  the  measure  data  at  approach  power. 

(5)  The  label  150  to  200  segment  checks  the  extrapolation 
limit  for  the  first  measure  data  computed  at  the  1000  foot  reference 
distance  for  each  power  setting.  If  the  limit  is  exceeded,  a  new 
power  setting  is  computed  and  set  up  in  array  PSCF. 
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(6)  The  remainder  of  this  subroutine  (labels  250  to  485)  com¬ 
putes  the  measure  data  for  cases  where  the  reference  (PS)  and  re¬ 
quested  (PSC)  power  settings  are  on  opposite  sides  of  the  approach 
power  setting  (see  A"6  rules  (6c)  and  (6d)  in  the  subroutine  SETUPD6 
documentation) .  The  computation  of  these  measure  data  requires  two 
extrapolations;  first,  the  measure  data  are  extrapolated  from  the 
reference  power  setting  (PS  or  PSIF)  to  the  approach  power  setting 
and  then  from  the  approach  power  setting  to  the  requested  output 
power  setting  (PSC  or  PSCF) .  These  extrapolations  use  the  approach 
to  takeoff  slope  and  highest  ranking  power  setting  less  than  approach 
to  approach  slope  in  the  sequence  determined  by  the  given  data.  The 
second  slope  references  are  coded  in  the  IREF  program  flag  array. 

SUBROUTINE  SUMRY ( IPU , COMD , EXTMS , N , NP , SOURCE , LFLG , I REF , ITP , IAP , 

IHP ) 

This  subroutine  is  called  from  the  MAIN  routine  at  the  end  of 
each  aircraft  analysis  to  print  a  summary  of  the  input  and  output 
data  for  that  aircraft.  The  subroutine  arguments  are: 

(1)  IPU  is  the  profile  dataset  print  (on  TAPE 3 )  flag; 

(2)  COMD  contains  the  last  5  characters  of  the  reference 
dataset  comdeck  name; 

(3)  EXTMX  is  the  maximum  extrapolation  error  permitted  by 
the  program  (see  subroutine  DELTA6 ) ; 

(4)  N  is  the  number  of  input  power  settings  (PS)  ; 

(5)  NP  is  the  number  of  output  power  settings  (PSC) ; 

(6)  SOURCE  contains  the  date  of  the  original  reference  data¬ 
set  run; 

(7)  LFLG  is  a  flag  defined  for  each  output  power  setting 
(see  subroutine  DELTA6) ; 

(8)  IREF  is  a  flag  which  is  greater  than  zero  when  two  slope 
lines  were  used  to  extrapolate  the  measure  data  (required  when  re¬ 
ference  and  output  power  settings  are  on  opposite  sides  of  approach 
power)  ; 

(9)  ITP,  IAP,  and  IHP  are  the  indices  of  the  reference  file 
data  for  takeoff,  approach,  and  the  highest  ranking  power  setting 
less  than  approach  power. 
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GENERAL  OVERVIEW  OF  THE  OMEGA  11  PROGRAM 


The  OMEGA  11  program,  hereafter  referred  to  as  simply  the 
"program",  is  designed  to  compute  descriptions  of  the  ground  run-up 
noise  of  an  aircraft  in  terms  of  tone-corrected  perceived  noise 
level  (PNLTX) ,  A-weighted  overall  sound  level  (ALX) ,  and  tone- 
corrected  A-weighted  overall  sound  level  ( ALTX)  as  a  function  of 
distance  to  the  aircraft,  aircraft  power  setting  and  meteorological 
conditions.  These  noise  measure  data  (profile  datasets)  are  com¬ 
puted  for  aircraft  ground  run-up  reference  data  as  outlined  in 
AMRL-TR-73-107 . They  are  required  as  input  to  the  NOISEMAP  noise 
exposure  forecast  program  and  also  are  the  ground  run-up  part  of 
the  NOISEFILE  3  database. 

To  compute  the  above  noise  measure  data  for  selected  opera¬ 
tion  power  settings,  the  program  inputs  all  reference  datasets  for 
aircraft  ACC  from  the  NOISEFILE  4  database.  These  reference  data¬ 
sets  contain  sound  pressure  level  (SPL)  data  for  19  angles  normalized 
to  a  reference  distance  of  250  feet  and  to  standard  day  temperature 
(59°F) ,  relative  humidity  (70%)  and  barometric  pressure  (29.92  inches 
Hg) .  The  format  of  these  data  are  described  in  Appendix  G. 

These  reference  spectra  are  then  extrapolated  to  each  of  the 
22  standard  profile  distances  (from  200  to  25,000-feet)  at  the  re¬ 
quested  standard  or  non-standard  weather  conditions.  PNLTX,  ALX 
and  ALTX  noise  measures  are  determined  for  each  distance  and  angle 
from  these  extrapolated  SPL  spectra  for  the  reference  power  setting. 
This  program  interpolates  between  two  reference  file  power  settings 
to  compute  the  noise  measure  data  for  each  power  setting  requested 
on  the  code  sheet.  Noise  measure  data  can  be  computed  for  any  power 
setting  within  the  range  available  in  the  reference  file. 

A  brief  summary  of  the  program  operation  is  given  below: 

(1)  The  program  inputs  the  code  sheet  parameters  described 
in  Appendix  B  and  reads  the  reference  datasets  for  aircraft  ACC  from 
the  TAPE 7  reference  file. 
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(2)  The  power  setting  data  are  ranked  and  the  indices  of  the 
reference  datasets  required  to  interpolate  each  output  power  setting 
are  defined. 

(3)  The  cover  page  is  printed  whe  IPR  is  greater  than  zero. 

(4)  The  aircraft  summary  page  is  printed. 

(5)  If  Delta  N  ( DELN )  is  not  zero,  it  is  added  to  all  spectra 
for  all  power  settings. 

(6)  If  print  flag  IPR  is  greater  than  zero,  all  reference 
datasets  are  printed. 

(7)  PNLTX,  ALX  and  ALTX  profile  data  for  each  requested  power 
setting  (PSC)  are  computed  (in  sequence  from  low  to  high  PSC) : 

(a)  If  the  PSC  is  the  same  as  one  of  the  reference 
dataset  power  settings,  the  profile  data  are  computed  and  no  inter¬ 
polation  is  required. 

(b)  If  the  PSC  is  not  the  same  as  a  reference  dataset 
power  setting,  the  profile  data  are  computed  at  the  reference  con¬ 
ditions  for  the  nearest  reference  file  power  settings  on  each  side 
of  PSC  and  the  PSC  profile  data  are  linearly  interpolated.  For 
many  PSC's,  the  reference  profile  data  for  at  least  one  dataset  will 
have  been  computed  for  the  previous  PSC  and  thus  stored  in  the  SENX 
array. 

(8)  If  IEDIT  equal  zero,  the  PSC  profile  data  are  edited  to 
select  the  10  angles  which  best  represent  the  profile  dataset  at  the 
reference  distance. 

(9)  For  IEDIT  greater  than  or  equal  to  zero,  all  PNLTX,  ALX 
and/or  ALTX  profile  data  are  written  on  file  TAPE2  as  requested  by 
the  MEAS  program  flag. 

(10)  For  IPR  greater  than  zero,  the  PNLX,  PNLTX,  ALX  and/or  or 
ALTX  profile  data  page  are  printed  as  requested  by  the  MEAS  flag. 

A  plot  is  also  printed  for  PNLTX,  ALX  and  ALTX  at  the  reference 
distance . 

The  content  and  format  of  the  above  mentioned  output  can  best 
be  determined  by  consulting  the  sample  problem  in  Appendix  D. 


The  CDC  FORTRAN  extended  (FORTRAN  IV)  computer  language  was 
used  for  the  entire  program.  The  common  and  subroutine  features 
of  the  language  were  used  extensively  throughout  the  program  to 
save  computer  time  and  core. 

The  following  sections  describe  the  detailed  tasks  accomplished 
by  the  program.  It  is  intended  to  document  the  procedures  within 
each  subroutine  at  a  level  useful  to  either  a  programmer  reading 
this  while  working  with  the  code  or  a  reader  simply  interested  in 
what  happens  with  a  specific  subroutine.  The  algorithms  used  to 
compute  the  noise  measures  are  described  in  detail  in  the  individual 
subroutines . 


GENERAL  ORGANIZATION  OF  THE  OMEGA  11  PROGRAM 

The  general  organization  of  the  entire  program  is  shown  in 
Figure  6.  The  arrows  indicate  access  to  the  various  routines 
rather  than  program  flow;  for  example,  MAIN  calls  subroutine  CDIST 
which  in  turn  calls  subroutine  CPNL,  CPTC  and  CAL  and  subroutine 
CPNL  calls  function  FNOY.  The  circled  numbers  indicate  the  input 
(TAPE5)  and  output  ( TAPE2 ,  TAPE6 )  files.  Since  the  TAPE6  file 
(equivalenced  to  the  OUTPUT  file)  is  written  by  numerous  routines 
throughout  the  program,  the  circled  six  is  omitted  from  the  figure. 

Using  Figure  6  as  a  guide,  this  section  summarizes  in  very 
general  terms  the  functions  performed  by  the  entire  program.  This 
is  meant  to  serve  as  an  introduction  for  the  reader  to  the  functions 
of  the  individual  subroutines. 

The  control  routine,  MAIN,  reads  the  job  control  card  and 
initializes  several  program  and  test  variables.  Subroutine  TESTN 
is  then  called  to  read  the  code  sheet  tesu  parameters,  initialize 
numerous  test  variables;  and  call  subroutine  ALPH  to  compute  the 
atmospheric  absorption  data  for  non-standard  temperature  and  re¬ 
lative  humidity. 

Next  the  MAIN  routine  initializes  additional  test  parameters 
and  calls  subroutine  RSPLN  to  read  all  reference  datasets  for  air¬ 
craft  ACC  from  file  TAPE 7 .  The  power  settings  from  these  reference 
datasets  as  well  as  the  output  power  setting  data  are  ranked  by  sub¬ 
routine  RANK  which  also  determines  the  reference  datasets  required 
to  compute  the  profile  data  for  each  output  power  setting. 

The  cover  (IPR>0)  and  summary  pages  are  printed  by  subroutines 
TITPG  and  SUMRY,  respectively.  Delta  N  ( DELN )  is  added  to  all  ref¬ 
erence  spectra  (for  DELN/0)  which  are  then  printed  (IPR>0)  by  the 
MAIN  routine. 

Subroutine  CDIST  is  called  to  compute  the  PNLX,  PNLTX ,  ALX 
and/or  ALTX  profile  data  (as  requested  by  the  MEAS  flag)  for  the 
reference  dataset  power  settings  required  to  interpolate  the  output 
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power  settings  (PSC) .  This  interpolation  between  power  settings 
is  performed  by  the  MAIN  routine.  Subroutine  CDIST  calls  sub¬ 
routine  CPNL,  CPTC  and  CAL  to  compute  the  PNLX,  tone  correction, 
and  ALX  data.  These  interpolated  profile  data  are  edited  (IEDIT= 

0)  by  subroutine  EDIT  to  select  the  10  angles  which  best  describe 
the  profile  data  at  the  reference  distance.  EDIT  calls  subroutine 
ERR  which  uses  linear  interpolation  between  the  selected  angles  to 
determine  how  well  they  represent  the  profile  function.  The  FINTP 
linear  interpolation  subroutine  is  used  by  subroutine  ERR.  EDIT 
also  calls  subroutine  ITER  which  attempts  to  reduce  the  interpolation 
errors  by  selecting  the  angles  with  the  largest  errors;  ITER  also 
calls  ERR. 

Subroutine  PPFDAT  writes  the  profile  datasets  on  file  TAPE 2 
(for  IEDIT>0)  and  prints  (IPR>0)  the  tab  output  pages  for  all  com¬ 
puted  measures.  Subroutine  PLT  prints  (IPR>0)  a  tab  plot  of  the 
PNLTX,  ALX  and  ALTX  noise  level  versus  angle  data  computed  for  the 

reference  distance.  The  angles  for  which  profile  data  are  written 
on  TAPE 2  are  listed  below  the  tab  plot. 

After  computing  and  printing  the  profile  data  for  each  of  the 
NP  power  settings ,  control  is  returned  to  label  10  in  the  MAIN  routine 
and  the  program  repeats  the  above  for  the  next  aircraft  (or  until 
an  end  of  file  is  read  from  the  INPUT  file) . 
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DEFINITIONS  OF  SYMBOLS  AND  TERMINOLOGY 
USED  IN  THE  OMEGA  11  PROGRAM 

The  symbols  defined  here  are  used  in  this  report  and/or  in 
the  OMEGA  11  program  source  listing.  They  are  a  subset  of  the  com¬ 
plete  symbol  versus  reference  list  given  in  the  SUPER  INDEX 
in  Appendix  J.  Many  of  the  symbols  given  in  the  SUPER  INDEX 
are  really  dummy  variables  used  in  only  one  or  two  routines  and  re¬ 
defined  in  each  routine;  most  of  these  symbols  are  not  included  in 
this  list  of  symbol  definitions.  Symbols  which  are  arrays  will  be 
listed  with  their  array  dimensions.  Variables  I,  J  and  K  are  usually 
but  not  always  used  as  array  subscripts  as  follows: 

(1)  The  subscript  "I"  is  a  running  index  associated  with  any 
one  spectrum  (angle) .  It  is  also  frequently  used  as  a  "dummy"  index 
to  initialize  variables. 

(2)  The  subscript  "J"  is  a  running  index  associated  with  any 
one  band  in  the  set  of  octave  or  1/3  octave  frequency  bands.  It  is 
also  an  index  associated  with  a  specific  profile  measure. 

(3)  The  subscript  "K"  is  a  running  index  associated  with  any 
one  profile  distance. 


SYMBOL 

ACC 

ALTX (19,22,2 

ALX (19,22,2) 

ATN (24) 

ATN8 (24) 

ATNC (24) 

AW (24) 

BLK 

CRI 

CXD ( 19 ) 

DATE 
DATN ( 6 ) 

DELN 

DIST 

EA(13, 13) 


DESCRIPTION 


Three  character  aircraft  code  read  from  the  code 
sheet  and  printed  on  all  output  pages  and  in  all 
output  datasets. 

Profile  tone-corrected  A-weighted  overall  sound 
level  in  dBA  for  each  angle  and  profile  distance 
for  two  power  settings. 

Profile  A-weighted  overall  sound  level  in  dBA  for 
each  angle  and  profile  distance  for  two  power  set¬ 
tings  . 

Data  statement  array  containing  the  atmospheric  ab¬ 
sorption  coefficients  in  dB  per  1000  for  standard 
day  temperature  and  relative  humidity. 

Atmospheric  absorption  coefficients  in  dB  per  1000 
feet  for  OMEGA  11  profile  output  temperature  and 
relative  humidity. 

Atmospheric  absorption  coefficients  in  dB  per  1000 
feet  for  OMEGA  11  reference  input  temperature  and 
relative  humidity  (usually  standard  day  conditions) . 

A-weighting  coefficients  in  dBA. 

A  data  statement  variable  containing  a  blank  Hollerith 
character  used  in  printing  variable  format  data. 

Comdeck  revision  identifier  (see  code  sheet) . 

Computed  tone  correction  for  each  angle  for  the 
reference  distance  (dB)  . 

Date  of  computer  run  (see  code  sheet) . 

Date  of  the  OMEGA  8  computer  run  which  generated 
the  reference  dataset. 

Noise  adjustment  factor  added  to  the  reference 
spectrum  (dB) . 

Distance  in  feet  to  which  the  reference  file  data  in 
NOISEFILE  4  are  normalized  (presently  250  feet) . 

Excess  atmospheric  attenuation  in  dB  for  bands  17 
to  29  and  distances  400  to  6300  feet  (subroutine 
CDIST)  . 


ER (19,3) 


Profile  dataset  angle  selection  error  data  for  each 
angle  and  measure  (dB) . 


SYMBOL 


DESCRIPTION 


ERMAX  Maximum  acceptable  angle  selection  error  in  dB;  no 

attempt  is  made  to  improve  the  angle  selection  for 
errors  less  than  ERMAX. 

FIMPR8  Characteristic  impedance  ratio  using  reference  and 

profile  output  temperature  and  barometric  pressure. 

FJ  Constant  used  in  the  perceived  noise  level  computa¬ 

tions;  FJ=0.15  for  1/1  octave  band  data. 

FL(24,5)  Data  statement  array  used  in  noy  computations  (func¬ 

tions  FNOY)  containing  the  band  sound  pressure  levels 
in  dB  given  in  Table  3 . 

FM(24,4)  Data  statement  array  used  in  noy  computations  (func¬ 

tion  FNOY)  containing  the  reciprocals  of  the  slopes 
given  in  Table  3 . 

FMT(22)  Variable  format  array  used  to  print  profile  data  in 

subroutine  PPFDAT. 

FMXER  Maximum  angle  selection  error  permitted  without  an 

error  message  being  printed  (see  code  sheet) . 

FREQ (24)  Data  statement  array  containing  the  frequency  values 

in  Hz  in  character  format  for  printing. 

FREQ3 ( 24 )  Geometric  mean  and  lower  limiting  frequencies  re¬ 

quired  to  compute  atmospheric  absorption  coefficients 
for  1/3  octave  band  data. 

FSPL (19 , 24 , 6)  Normalized  reference  SPL  in  dB  for  each  angle,  fre¬ 
quency  band ,  and  operation  power  code . 

IBNH  Largest  band  number  index  (24  corresponds  to  band  40) . 

IBNL  Initial  band  number  index  (1  corresponds  to  band  17) . 

IC  Index  which  is  usually  associated  with  output  power 

setting  (PSC)  data. 

IEDIT  Program  flag  which  controls  the  quantity  of  profile 

data  written  on  file  TAPE2  (see  code  sheet) . 

IFC(6)  Program  flag  used  to  flag  special  case  output  power 

setting  data  (see  code  sheet) . 

IFCC  Index  used  to  count  the  number  of  IFC's  >  0. 


IFI(6)  Program  flag  used  to  flag  special  case  (Afterburner, 

etc.)  reference  file  power  setting  data. 
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SYMBOL 

I-.,  IFII 

3  ih 

;;  IH8 

;  -  IHH 


IL 

IPR 
IR ( 19 ) 

IRD 

IREQ (2,6) 

IT 

IT8 

IVER 

L 

M 


MEAS ( 3 ) 

:* 

MM 


N 


DESCRIPTION 


Index  used  to  count  the  number  of  IFI's  >  0. 

Index  of  the  largest  frequency  band  defined  for  this 
test  (IH=24  for  band  40) . 

Profile  output  relative  humidity  (code  sheet  input) . 
Reference  relative  humidity  (70%) . 

Index  which  is  frequently  associated  with  the  com¬ 
putation  of  the  two  sets  of  profile  data  used  to 
interpolate  profile  data  at  the  requested  power 
settings . 

Index  of  the  lowest  frequency  band  defined  for  this 
test  (IL=1  for  band  17)  . 

Program  print  control  flag  (see  code  sheet) . 

Array  used  to  print  integer  values  of  the  reference 
SPL  data. 

Profile  distance  index  which  corresponds  to  the  re¬ 
ference  minimum  slant  range  (presently  IRD=2) . 

Index  of  the  one  or  two  reference  datasets  required 
to  compute  the  profile  data  for  each  requested  power 
setting . 

Reference  temperature  in  degrees  F  (always  59 °F) . 

Profile  output  temperature  in  degrees  F  (see  code 
sheet)  . 

Program  version  code. 

Index  frequently  associated  with  data  for  a  specific 
reference  file  power  setting. 

Program  flag  indicating  whether  data  are  for  octave 
(M=l)  or  1/3  octave  (M=3)  band  center  frequency 
(always  3  in  this  program) . 

Program  job  control  variable  which  flags  the  profile 
measures  to  be  computed  (see  code  sheet) . 

Increment  of  the  frequency  index  (one  for  1/3  octave 
band  data) . 

Number  of  reference  dataset  operation  power  codes 
read  from  the  reference  file  (TAPE7)  for  aircraft  ACC 
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SYMBOL 

NC 

NN 

NP 

NPM 

NR (17,3) 

NRC ( 6 ) 

NRI (6) 

OPC ( 6 ) 

OPCC (6) 
OPCSP ( 8 ) 

OPD (2,6) 
OPDl ,  OPD 2 

PI 

P8 


DESCRIPTION 


Number  of  angles  for  which  SPL  spectra  are  defined 
in  the  reference  dataset  (always  19  for  the  present 
reference  datasets) . 

Maximum  number  of  reference  file  operation  power 
codes  permitted  for  each  aircraft  (NN=6) . 

Number  of  output  operation  power  codes  (power  settings) 
to  be  computed  for  this  aircraft. 

Maximum  number  of  profile  operation  power  codes  per¬ 
mitted  for  each  aircraft  (NPM=6). 

Change  in  slope  rank  data  computed  in  the  angle  selec¬ 
tion  routines  for  angles  10  to  170  degree's  for  each 
measure.  Angles  with  rank  greater  than  nine  are  in¬ 
cluded  in  the  final  profile  dataset. 

NRC(K)  contains  the  index  of  the  output  power  setting 
data  (in  arrays  PSC  and  PSCF)  whose  power  setting  rank 
is  K. 

NRI ( K)  contains  the  index  of  the  reference  power  setting 
data  (in  arrays  PS  and  PSIF)  whose  power  setting  rank 
is  K . 

Reference  operation  power  codes. 

Output  operation  power  codes. 

Special  case  operation  power  codes  for  which  no  inter¬ 
polation  is  permitted.  This  array  must  be  updated 
when  new  codes  are  added. 

Power  description  data  for  each  reference  operation 
power  code  (20  characters) . 

Power  description  data  defined  for  output  power 
settin js  when  the  reference  and  output  power  settings 
are  the  same. 

Reference  barometric  pressure  in  inches  Hg  (always 
29.92  inches  Hg) . 

Profile  output  barometric  pressure  in  inches  Hg . 


PNLTX (19 , 22 , 2)  Profile  tone-corrected  perceived  noise  level  in  PNdB 
for  each  angle  and  distance  for  two  power  settings. 

PNLX (19 , 22 , 2)  Profile  perceived  noise  level  in  PNdB  for  each  angle 
and  distance  for  two  power  settings. 
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SYMBOL 


DESCRIPTION 


PS(6,6)  Power  setting  data  for  each  reference  file  opera¬ 

tion  power  code  (power  setting  value  and  units  in 
character  format) . 

PSC(6)  Power  setting  data  for  each  profile  output  opera¬ 

tion  power  code  in  character  format  (see  code  sheet) 

PSCF(6)  Numeric  form  of  PSC(6)  data  defined  above. 

PSIF(6)  Numeric  form  of  the  first  power  setting  for  each  re¬ 

ference  operation  power  code  in  PS  (6,6)  above;  eg. 
PSIF(I)=PS(1,I)  . 

PSU  Power  setting  units  for  the  profile  output  data. 

PTC  Tone  correction  in  dB . 

PV  Profile  version  code  (see  code  sheet) . 

RMS (3)  Root  mean  square  of  the  angle  selection  error  for 

each  measure. 

RUN (6)  Two  character  run  number  from  each  reference  dataset. 

RUNC ( 6 )  Data  statement  array  containing  run  numbers  01  to  06 

in  character  format.  These  run  numbers  are  assigned 
to  the  output  data  in  power  setting  sequence. 

SENX (19 , 22 , 12)  Array  equivalent  to  arrays  PNLX  through  SENXD  in 

blank  common  where  SENXD( 19 , 22 , 4 )  contains  the  in¬ 
terpolated  profile  data  for  the  measures. 

SPLX(19,24)  Profile  sound  pressure  level  in  dB  for  each  angle 
(spectrum) . 

SX(22)  Distance  data  in  feet  for  the  22  profile  distances. 

T12(2)  Data  statement  array  used  to  set  up  the  variable 

formats  for  the  profile  data  tab  output. 

TAPE2  File  on  which  datasets  are  written;  TAPE2  may  be 

copied  or  equivalenced  to  the  PUNCH  file. 

TAPE5  Input  file  for  all  input  data;  TAPE5  is  equivalence.; 

to  the  system  INPUT  file. 

TAPE6  Output  tile  on  which  all  tab  output  are  printed;  TAP:  a 

is  equivalenced  to  the  system  OUTPUT  file. 

Reference  dataset  input  file. 
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TAPE  7 


DESCRIPTION 


Ten  character  test  number  from  each  reference  data¬ 
set. 

Two  lines  of  25  characters  from  the  reference  data¬ 
set  describing  the  noise  source.  The  two  lines  from 
the  first  reference  dataset  are  printed  in  the  Noise 
Source/Subject  block  on  all  output  pages. 


DETAILED  DESCRIPTION  OF  THE  OMEGA  II  PROGRAM 


This  section  discusses  the  MAIN  routine  and  each  subroutine 
in  the  OMEGA  11  program.  Procedures  within  most  routines  are 
documented  at  a  level  useful  to  a  programmer  reading  this  while 
working  with  the  code  or  a  reader  interested  in  what  happens  within 
a  specific  subroutine.  Most  routines  contains  numerous  comments 
which  should  be  very  helpful  in  following  the  code. 

The  program  algorithms  and  I/O  are  discussed  in  the  routines 
in  which  they  are  coded.  The  program  code  sheet  in  Appendix  B 
and  the  sample  problem  in  Appendix  D  are  referenced  to  simplify 
the  description  of  the  input  and  output.  The  more  complex  sub¬ 
routines  are  supplemented  by  flowcharts  drawn  from  the  point  of 
view  of  function  performed  rather  than  block  instructions. 

COMMON  VARIABLES 

Extensive  use  is  made  of  common  in  the  program  for  communica¬ 
tions  between  the  various  routines.  Many  of  the  storage  locations 
in  blank  common  are  used  in  different  ways  or  with  different  vari¬ 
able  names  throughout  the  program  to  save  core.  Several  of  the 
large  arrays  are  included  in  blank  common  rather  than  labeled  com¬ 
mon  because  on  the  CDC  6600  computer  a  large  blank  common  reduces 
the  total  core  required  to  load  and  execute  the  program.  The  vari¬ 
ables  used  in  labeled  common  are  usually  of  a  similar  type  and/or 
used  in  many  of  the  same  subroutines. 

The  variables  assigned  to  blank  and  labeled  common  in  the 
MAIN  routine  and  the  total  common  length  are  listed  in  Table  5. 

The  subroutines  in  which  the  labeled  common  are  used  are  listed 
in  Table  6.  All  blank  and  labeled  common  are  included  in  the 
MAIN  routine.  All  common  variables  are  defined  in  the  complete 
list  of  symbols  at  the  beginning  of  the  report.  The  blank  and  label 
ed  common  are  described  in  the  following  paragraphs. 


a 


Length 


TABLE  5 

MAIN  ROUTINE  VARIABLES  IN  BLANK  AND  LABELED  COMMON 


Labeled  Common 


Blank  Common 

ATTNC 

HE  ADC 

M 

ATNC (24) 

TEST (6) 

MM 

ATN8 (24) 

TT (6,6) 

IL 

SX ( 22 ) 

DATE 

IH 

RUN ( 6 ) 

NC 

IPAGE 

L 

IVER 

N 

ACC 

ID 

OPC (6) 

DIST 

IT 

MEAS ( 3 ) 

PI 

FSPL (19,24,6) 

IHH 

SPLX (19,22) 

IT8 

PNLX (19,22,2) 

P8 

PNLTX (19,22,2) 

IH8 

ALX (19,22,2) 

FIMPR8 

ALTX (19,22,2) 

PV 

SENXD (19,22,4) 

CRI 

IR ( 19 ) 

PS (6, 6) 

IPRCK { 6 ) 

OPD (2,6) 

DMY (202) 

OPCC ( 6 ) 

DELN 
PSC ( 6 ) 
PSU 
NP 

PSIF ( 6 ) 
PSCF (6) 
NRC ( 6 ) 
ICC 
OPCDM 
OPD1 
OPD2 
COMD ( 6 ) 
RUNC ( 6 ) 
IC 

DATN ( 6 ) 
IFC ( 6 ) 
IFCC 
IFI (6) 
IFII 


8447  70  185 
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TABLE  6 


SUBROUTINES  CONTAINING  THE  LABELED  COMMON 


ATTNC 

HEADC 

CDIST 

HEADS 

TESTN 

PPFDAT 

RANK 

RSPLN 

SUMRY 

TESTN 

TITPG 

I 

I 


Blank  Common 

The  8447  storage  locations  used  by  blank  common  in  the  main 
routine  are  the  maximum  required  in  any  routine  in  the  program. 
Almost  all  routines  use  some  blank  common  but  only  few  require  the 
8447  locations.  The  variable  names  assigned  to  blank  common  vary 
throughout  the  program.  Most  variables  are  defined  to  communicate 
with  several  subroutines  and  then  redefined  for  the  next  series  of 
routines.  In  several  cases  variables  are  changed  or  equivalenced 
to  simplify  the  computations  and/or  output  routines. 

ATTNC  Common 

These  variables  are  used  to  extrapolate  data  from  a  given  set 
of  distance  and  weather  conditions  to  a  new  set  of  conditions.  For 
example,  from  reference  distance  and  standard  day  conditions  to  the 
profile  distances  at  the  profile  temperature  and  humidity.  These 
70  storage  locations  are  defined  the  same  throughout  the  program. 

HEADC  Common 

These  variables  are  primarily  output  variables  required  to 
identify  the  data  being  analyzed.  Most  of  these  data  are  printed 
in  the  page  header  blocks  and  the  output  COMDECK  comment  cards . 

The  storage  locations  are  defined  the  same  throughout  the  program. 

MAIN  PROGRAM 

MAIN  is  the  executive  routine  for  the  entire  OMEGA  11  program. 
Its  principal  function  is  to  call  the  subroutines  required  to  read 
the  input  data,  perform  the  data  analysis,  and  write  the  tab  and 
data  file  outputs.  However,  the  program  also  reads  the  program 
control  parameters,  initializes  numerous  test  variables,  inter¬ 
polates  the  profile  noise  levels  as  a  function  of  power  setting, 
and  prints  part  of  the  output.  The  MAIN  routine  is  discussed  in 
the  following  paragraphs  using  the  program  listing  in  Appendix  J, 
the  flottfchart  in  Figure  7,  and  the  sample  problem  in  Appendix  D 
as  guides. 
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Figure  7.  Flowchart  for  OMEGA  11  MAIN  Routine 


Data  Statement  Arrays 


The  FREQ  data  statement  array  contains  frequency  data  (Hz) 
in  character  format  which  is  printed  in  the  frequency  versus  SPL 
listings  of  the  reference  datasets. 

Initialize  Test  Variable 

The  first  segment  of  this  routine  performs  the  following 
variable  initialization  steps: 

(1)  The  SX  standard  profile  distance  array  is  evaluated: 

1  +  22 

SXj  =  antilog  (  q  )  feet 

where  I  is  the  distance  index  running  from  1  to  22. 

(2)  The  code  sheet  job  control  card  is  read  once  per  exe¬ 
cution  of  the  program. 

(3)  Subroutine  TESTN  is  called  to  read  all  test  (aircraft) 
code  sheet  parameters  and  initialize  numerous  other  test  variables 
based  on  these  code  sheet  input  data  (eg.  atmospheric  absorption 
data) . 

Read  Reference  Data 

The  program  calls  subroutine  RSPLN  to  read  the  reference  data 
for  aircraft  ACC  from  file  TAPE7 .  TAPE7  may  contain  data  for  nu¬ 
merous  aircraft,  however,  all  data  for  aircraft  ACC  must  be  back  to 
back.  All  reference  data  (for  ACC)  for  normal  power  settings  are 
stored  in  the  program;  the  special  case  (afterburner,  etc.)  power 
setting  data  are  stored  only  when  at  least  one  special  case  output 
power  setting  is  requested.  Note  that  array  OPCSP  in  subroutine 
RSPL  must  be  updated  when  new  special  case  OPC's  are  added  to  NOISE- 
FILE. 

Setup  Interpolation  Index  Array 

Subroutine  RANK  is  called  to  rank  from  low  to  high  the  input 
and  output  power  setting  data.  These  ranked  power  setting  data  are 
used  to  determine  the  reference  data  required  to  interpolate  the  pro¬ 
file  data  for  each  output  power  setting.  The  indices  of  these  ref¬ 
erence  data  are  stored  in  array  IREQ. 


Subroutine  TITPG  prints  the  cover  page  when  flag  IPR  is  greater 
than  zero.  Subroutine  SUMRY  uses  the  above  IREQ  array  data  to  print 
the  aircraft  summary  page  which  is  the  only  tab  output  when  IPR  is 
less  than  one. 

Adjust  and  Print  Reference  Data 

The  following  constant  is  computed  as  required  by  subroutine 
CDIST  later  in  the  program: 

D1  =  10  log  (FIMPR8)  +  20  log  (DIST) 

where 

FIMPR8  =  the  characteristic  impedance  ratio  computed  in  sub¬ 
routine  TESTN. 

DIST  =  the  reference  distance  in  feet. 

The  statement  label  55  loop  checks  array  IREQ  to  determine 
which  reference  data  are  actually  required  for  this  aircraft  analysis 
If  Delta  N  is  not  equal  to  zero,  it  is  added  to  all  spectra  in  these 
required  datasets  which  are  then  printed  when  flag  IPR  is  greater 
than  zero.  Subroutine  HEADS  prints  each  reference  page  header  block. 
The  overall  SPL  is  also  computed  and  printed  below  the  last  SPL  band. 
The  overall  SPL  is  defined  as  follows: 

FSPL 

Overall  SPL  =  10  log  Z_  antilog  ( - J-,L) 

«J  1U 

where 

FSPL-j.  j  L  =  reference  band  SPL  in  dB  at  distance  DIST  and  for 
'  '  angle  index  I,  band  index  J,  and  power  setting 
index  L. 


Single  Event  Profile  Data 

The  statement  label  500  loop  computes  the  single  event  profile 
noise  data  for  each  of  the  NP  power  settings  (PSC) .  Each  of  the  NP 
power  settings  will  require  profile  data  from  one  reference  dataset 
when  the  PSC  is  the  same  as  a  reference  power  setting  or  from  two 
reference  datasets  when  the  PSC  must  be  interpolated.  The  dataset 
indexes  required  for  each  PSC  are  stored  in  array  IREQ.  Subroutine 


CDIST  computes  the  profile  data  requested  by  the  MEAS  flag  ( PNLTX , 
ALX  and/or  ALTX)  for  each  reference  dataset. 


Note  that  profile  data  are  computed  and  stored  for  no  more 
than  two  reference  datasets  at  any  one  time;  however  array  IREQ  is 
set  up  and  checked  to  avoid  duplicate  computations.  This  limit  of 
two  was  set  to  keep  the  program  core  size  below  60000g. 

When  no  power  setting  interpolation  is  required,  the  final 
profile  data  are  stored  in  array  SENX  (by  subroutine  CDIST)  as  in¬ 
dicated  in  the  program  comment  statements  (see  label  370  and  380). 
When  the  PSC  are  not  the  same  as  a  reference  file  power  setting, 
the  profile  data  are  interpolated  for  each  angle  (I)  and  distance 
(K)  : 


SENXI  K  Jl"SENXI  K  JJ 

senxi,k,j  "  t-  Tsifl'2  -  psifl;  '  1  [PSCFicc-pslFLil  + 


where 


SENX 


I,K, JJ 


PNdB  or  dBA 


SENXj  R  j  =  the  final  profile  data  in  PNdB  or  dBA  for  the 
'  Ith  angle,  Kth  distance  and  measure  index  J 

(J  ranges  from  9  to  12) . 

SENXj  K  =  the  profile  data  for  the  Jlth  measure  index 
from  the  second  (L2)  reference  dataset  for 
I  and  K . 

SENXj.  K  jj  =  the  profile  data  for  the  JJth  measure  index 
from  the  first  (LI)  reference  dataset  for  I 
and  K. 

PSIF  _  =  power  setting  from  the  second  (L2)  reference 

dataset. 

PSIF  .  =  power  setting  from  the  first  (LI)  reference 

dataset. 

PSCFICC  =  the  output  profile  power  setting  for  which  the 

profile  data  are  interpolated. 


Edit  and  Write  Profile  Data 

When  flag  IEDIT  is  zero,  subroutine  EDIT  is  called  to  select 
the  ten  angles  which  best  describe  each  profile  measure  at  the  ref¬ 
erence  distance.  The  ten  selected  angles  are  angles  0  and  180  de¬ 
grees  plus  the  eight  angles  from  10  to  170  degrees  for  which  the 
value  of  array  NR^  is  greater  than  nine,  where  I  is  the  angle 
index  (1=1  to  17)  and  J  is  the  measure  index  (J=l  to  3  for  PNLTX , 

ALX  and  ALTX) . 

Subroutine  PPFDAT  is  called  to  write  the  final  profile  data 
for  the  requested  measures  (MEAS>0)  on  file  TAPE2  and  to  print  the 
profile  data  tab  output.  The  quantity  of  data  written  on  TAPE2  de¬ 
pends  on  the  value  of  the  IEDIT  flag: 

(1)  For  IEDIT<0 ,  all  TAPE  2  output  are  omitted. 

(2)  For  IEDIT=0 ,  write  the  10  angles  selected  by  subroutine 

EDIT. 

(3)  For  IEDIT=1 ,  write  all  19  angles  of  profile  data. 

A  description  of  the  content  and  format  of  these  profile  datasets 
is  given  in  Appendix  H. 

The  profile  data  listings  are  printed  when  program  flag  IPR  is 
greater  than  zero.  They  contain  data  for  all  19  angles  and  22  u''~- 
tances;  one  page  is  printed  for  each  measure  (listing  includes  the 
PNLX  data  when  PNLTX  is  computed) . 

Subroutine  PLT  prints  (IPR>0)  a  plot  of  PNLTX,  ALX  and  ALTX 
noise  level  versus  angle  for  the  reference  distance.  This  plot  is 
very  helpful  when  selecting  the  ten  angles  (manually)  or  when  check¬ 
ing  the  angles  selected  by  the  edit  routine.  The  angles  written  on 
TAPE2  for  each  measure  are  printed  below  this  plot. 

At  this  point,  control  is  returned  to  label  10  to  begin  the 
next  aircraft  analysis. 


SUBROUTINE  TESTN(NPM) 

This  subroutine  is  called  from  the  MAIN  routine  to  input  the 
aircraft  code  sheet  parameters.  The  subroutine  also  initializes 
numerous  test  variables  and  sets  code  sheet  default  parameters. 
There  should  be  sufficient  comment  statements  in  the  listing  to 
document  most  of  the  coding. 


Method 

The  first  segment  of  the  subroutine  (to  label  10)  reads  the 
code  sheet  test  parameters  and  sets  the  program  default  values. 

The  computer  job  is  terminated  when  an  end  of  file  is  read  from 
unit  5.  The  code  sheet  parameters  and  default  conditions  are 

described  in  Appendix  B.  The  reference  temperature  (IT8)  is  con¬ 
verted  from  °F  to  °C  as  required  to  compute  the  impedance  data. 


The  impedance  ratio  for  reference  and  profile  output  con¬ 
ditions  is: 


FIMPR8  = 


273  +  TM 
273  +  TM8 


"]1/2  P  P8~ 

FJ  Pi 

•  L  M 


where 

TM  =  reference  temperature  (15°C) 

TM8  =  profile  output  temperature  in  °C 

PI  =  reference  barometric  pressure  (29.92  in  Kg). 

P8  =  profile  output  barometric  pressure  in  inches  Hg. 


Subroutine  ALPH  is  called  to  compute  the  atmospheric  absorp¬ 
tion  data  in  dB  per  1000  feet  for  non-standard  day  profile  condi¬ 
tions  (ATN8) .  For  standard  day  conditions  (59°F  and  70%),  these 
absorption  data  are  stored  in  the  ATN  data  statement  array. 
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SUBROUTINE  ALPH ( REL , TEMP , ABC , IL, IH) 

This  subroutine  is  called  from  subroutine  TESTN  to  compute 
the  octave  or  1/3  octave  band  atmospheric  absorption  data  in  dB 
per  1000  feet  for  non-standard  day  temperature  and  relative  humidity. 
This  subroutine  is  the  same  as  subroutine  ALPH  in  the  OMEGA  10 
program . 

FUNCTION  ATKN ( X , Y , N , K , XI ) 

This  function  is  a  general  AITKEN  interpolation  function,  usee 
by  subroutine  ALPH  to  compute  the  normalized  molecular  absorption 
coefficient.  ATKN  was  obtained  from  the  ASD  computer  center  library 
(old  IBM  7094  library) .  Since  this  is  a  common  interpolation  functicr 
defined  in  most  numerical  methods  texts,  no  additional  description 
will  be  given. 

SUBROUTINE  HEADS (IPH) 

This  subroutine  is  called  from  the  MAIN  routine  and  from 
subroutines  CDIST  and  PLT  to  print  page  header  blocks  at  the  top 
of  all  output  pages.  The  header  blocks  are  112  characters  wide 
for  the  reference  sound  pressure  level  output  (label  2000  formats) 
and  126  characters  wide  for  all  profile  output  pages  (label  3000 
formats).  The  IPH  subroutine  argument  determines  the  specific  page 
header  block  printed  for  each  call. 

The  content  and  format  of  the  header  blocks  can  best  be  ob¬ 
served  by  consulting  the  sample  problem  in  Appendix  D.  This  sub¬ 
routine  should  contain  sufficient  comment  statements  to  identify 
the  data  being  printed.  It  may  also  be  helpful  to  consult  the 
subroutine  HEAD  documentation  in  the  OMEGA  10  program;  the  five 
categories  of  data  described  there  also  apply  here. 


SUBROUTINE  RSPLN (NN , IERR) 

This  subroutine  is  called  from  the  MAIN  routine  to  input  one 
reference  dataset  from  file  TAPE7  (unit  7)  for  each  normal  operation 
power  code  (OPC)  in  the  reference  file  (NOISEFILE  4)  for  aircraft 
ACC-  When  file  TAPE7  contains  more  than  one  reference  dataset  for 
one  or  more  OPC's,  only  the  last  dataset  is  stored  by  this  routine. 
The  special  case  operation  power  code  data  (Afterburner,  Wet  or  With 
Jets)  are  read  only  when  at  least  one  special  case  was  requested  on 
the  code  sheet  (IFCC>0) .  The  special  case  operation  power  codes  are 
stored  in  array  OPCSP  which  must  be  updated  when  new  codes  are  added 
to  the  NOISEFILE  database.  NN  is  the  maximum  number  of  datasets 
for  which  storage  has  been  allocated  in  the  program  (NN=6) .  The 
IERR  argument  is  a  program  error  flag  which  returns  codes  of  1  to  4 
for  different  type  input  errors. 

The  flowchart  in  Figure  8  and  the  comment  statements  in  the 
listing  should  make  it  easy  to  follow  the  data  being  read;  the  for¬ 
mat  and  content  of  these  ground  run-up  reference  datasets  are  also 
given  in  Appendix  G. 

FUNCTION  ICV(R) 

This  function  is  used  in  the  MAIN  and  PLT  routines  to  con¬ 
vert  variable  R  to  an  integer.  R  is  rounded  up  when  the  fractional 
part  is  greater  than  or  equal  to  0.5. 

SUBROUTINE  CDIST ( IRD , Dl , II ) 

This  subroutine  is  called  from  the  MAIN  routine  to  compute 
the  single  event  noise  profile  data  (e.g.,  PNLTX  versus  distance 
for  22  distances  from  200  to  25,000  feet)  from  the  reference  SPL 
spectra  stored  in  array  FSPL. 

The  subroutine  argument  IRD  is  the  index  of  the  standard  dis¬ 
tance  which  is  within  one  percent  of  the  reference  distance.  IRD 
is  defined  in  this  subroutine  and  returned  to  the  MAIN  routine. 

For  the  present  standard  references  distance  DIST  of  250  feet,  IRD 
will  always  be  two.  Dl  is  a  constant  computed  in  the  MAIN  routine 


and  defined  in  the  next  section.  II  is  a  power  setting  related 
index  (see  MAIN  routine) . 

The  EA  data  statement  array  contains  the  excess  attenuation 
data  for  frequencies  50  Hz  to  800  Hz  and  distances  400  to  6300  feet. 
These  data  were  obtained  from  Figure  3  which  was  taken  from  AMRL- 
TR-75-50. (3) 


Extrapolated  SPL  Data 

The  first  segment  of  this  subroutine  (statement  label  135 
loop)  computes  the  SPL  spectrum  extrapolated  to  the  Kth  standard 
profile  distance: 


SPLX_  ,  *  FSPL  ,  _  +  D1  -  EAD  - 

I  t  J  1  f  U  f 


(SXK)  ( ATN8 j) 
1000 


-  20  log  (SXK)  + 


(DIST)  (ATNCj) 

Tooo 


dB 


where 


SPLXI,J  “  the  calculated  band  SPL  in  dB  at  the  Kth  profile 
distance  from  the  source  for  angle  index  I  and 
frequency  index  J. 


FSPL 


I  ,J  ,L 


=  reference  band  SPL  in  dB  at  distance  DIST  and  for 

angle  index  I,  band  index  J,  and  power  setting 
index  L. 


D1  =  defined  in  the  MAIN  routine 

=  10  log  (FIMPR8 )  +  20  log  (DIST) 

FIMPR8  =  the  ratio  of  profile  and  reference  characteristic 
impedance  (see  subroutine  TESTN) . 

DIST  =  reference  distance  in  feet  from  the  source  (250 
feet)  . 


=  excess  atmospheric  attenuation  of  sound  in  dB  over 
distance  SXK  for  frequency  band  index  J  (not  de¬ 
fined  for  ail  J  or  for  all  SXV) . 

=  the  Kth  standard  profile  distance  in  feet  (defined 
in  the  MAIN) . 


ATN8_  =  sound  absorption  coefficient  in  dB  per  1000  feet 

for  frequency  index  J  and  profile  output  temperature 
and  relative  humidity. 

ATNCt  *  same  as  above  except  for  standard  day  conditions 
J  (reference) . 

Frequency  Weighted  Measures 

The  statement  label  250  loop  controls  the  computation  of  the 
perceived  noise  level  (PNLX) ,  A-weighted  overall  sound  level  (ALX) 
and  tone  correction  (CXD - reference  distance  only)  for  each  spec¬ 

trum  (angle)  for  the  Kth  profile  distance  and  Ilth  power  setting. 
These  data  are  computed  only  when  requested  by  the  MEAS  program 
flag.  Subroutine  CPNL  is  called  to  compute  the  PNLX  data  for  the 
Ith  spectrum.  If  PNLX  data  are  missing  beyond  the  second  distance, 
PNLX  is  extrapolated  linearly  from  the  last  two  good  points: 

pnlxi,k,ii  -  <2>  (PNLXI,K-1.II>  -  PNLXI.K-2,II  PNdB 

The  A-weighted  overall  sound  level  for  the  Ith  spectrum  are  com¬ 
puted  by  subroutine  CAL.  These  ALX  data  are  the  final  A-weighted 
profile  data.  The  tone  correction  data  are  computed  for  the  Ith 
spectrum  and  reference  distance  (IRD)  by  subroutine  CPTC. 


Single  Event  Profile  Data 

The  PNLTX  and  ALTX  profile  data  are  computed  by  adding  a 
smoothed  tone  correction  to  the  PNLX  and  ALX  data  (label  400  loop) : 


pnltxi,k,ii  -  pnlxi,k.ii  +  IC1)  (CXDI>  PNdB 

“•“i.K.II  *  ALXI,K,II  +  lcl)  (CXDI>  dBA 


CXD_  *  the  tone  correction  in  dB  for  the  Ith  spectrum  at 
the  reference  distance. 


where 


Cl 


=  1.0  for  distances  200  to  3150  feet. 

*  (0.2)(18-K)  for  distances  4000  to  8000  feet  (K=14  to  17). 
=  0.0  for  distances  10000  to  25000  feet. 

SUBROUTINE  CPNL(FJ, I , II) 

This  subroutine  is  called  from  subroutine  CDIST  to  compute 
the  perceived  noise  level  (PNLX)  for  the  Ith  spectrum  (angle) ,  Kth 
distance  and  Ilth  power  setting.  Function  FNOY  is  used  to  compute 
the  noy  data  for  each  SPL  data  point.  Subroutine  argument  FJ  is 
0.15  for  this  1/3  octave  band  data.  The  PNLX  algorithms  applied  in 
this  subroutine  are  the  same  as  applied  in  subroutine  CPNL  in  the 
OMEGA  10  program;  thus  no  additional  documentation  will  be  given 
here. 

FUNCTION  FNOY ( SPL, JJ) 

This  function  is  used  in  subroutine  CPNL.  It  is  the  same  as 
function  FNOY  described  in  the  OMEGA  10  program  documentation. 

SUBROUTINE  CPTC(PTC,I) 

This  subroutine  is  called  from  subroutine  CDIST  to  compute 
the  tone  correction  (PTC)  for  the  Ith  spectrum  (angle)  and  the  re¬ 
ference  distance.  This  subroutine  is  the  same  as  subroutine  CPTC 
described  in  the  OMEGA  10  program  documentation. 


SUBROUTINE  CAL(I,II) 

This  subroutine  is  called  from  subroutine  CDIST  to  compute  the 
A-weighted  overall  sound  level  (ALX)  for  the  Ith  spectrum  the  Kth 
distance,  and  Ilth  power  setting.  The  ALX  algorithm  is  the  same  as 
described  for  subroutine  CAL  in  the  OMEGA  10  documentation.  Many  of 
the  variable  names  are  different  in  this  subroutine;  however,  they 
should  be  defined  in  sufficient  detail  in  comment  statements  in  the 
listing. 


SUBROUTINE  PPFDAT ( JL, J2 , JI , Ll , L2 , IPR, IEDIT) 


This  subroutine  is  called  from  the  MAIN  routine  to  write 
( IEDIT>-1)  the  PNLTX,  ALX,  and/or  ALTX  single  event  profile  data 
on  file  TAPE2  (unit  2)  and  to  print  (IPR>0)  the  PNLX,  PNLTX,  ALX 
and/or  ALTX  tab  output  on  the  OUTPUT  file.  For  both  types  of  out¬ 
put,  only  measures  requested  by  the  MEAS  flag  are  printed.  To 
simplify  the  coding  and  reduce  the  number  of  write  statements,  these 
profile  data  are  stored  in  the  blank  common  array  SENX. 

The  subroutine  arguments  are  defined  as  follows: 

(1)  Jl  and  J2  are  the  first  and  last  indices  of  the  SENX 
profile  data  and  JI  is  the  increment  of  Jl  to  J2 . 

(2)  Ll  and  L2  are  the  indices  of  the  normalized  data  used  to 
compute  (interpolate)  the  profile  data  for  the  requested  power 
condition. 

(3)  IPR  is  the  program  tab  print  flag. 

(4)  IEDIT  is  the  profile  flag  which  controls  the  quantity  of 
data  printed  on  TAPE2 . 

Write  Profile  Datasets  on  TAPE2 

The  number  of  angles  of  profile  data  written  on  TAPE2  by  the 
label  100  loop  depends  on  the  value  of  the  IEDIT  program  flag.  All 
19  angles  or  the  10  angles  selected  by  the  EDIT  routine  are  written 
for  IEDIT  equal  to  one  and  zero,  respectively.  A  complete  descrip¬ 
tion  of  the  content  and  format  of  the  10  angle  ground  run-up  profile 
datasets  is  given  in  Appendix  H.  When  all  angles  are  written,  the 
final  10  angles  which  most  accurately  describe  each  noise  profile 
must  be  selected  from  these  19  angles.  The  tab  plot  of  the  profile 
data  for  the  reference  distance,  printed  by  subroutine  PLT  on  output 
page  j,  is  included  to  aid  in  the  selection  of  these  10  angles. 

Print  Single  Event  Data 

The  remainder  of  this  subroutine  (label  400  loop)  prints  the 
four  single  event  measures  (PNLX,  PNLTX,  ALX,  and  ALTX)  on  pages  D 
through  G,  respectively.  These  data  are  printed  from  the  SENX  array 
using  the  Jl,  J2,  and  JI  subroutine  arguments  defined  above. 


Subroutine  HEADS  is  called  to  print  each  page  header  block.  All 
single  event  data  less  than  zero  are  blanked  out  in  the  printout. 
The  content  and  format  of  these  pages  can  best  be  observed  by  con¬ 
sulting  the  sample  problem  in  Appendix  D. 

SUBROUTINE  TITPG 

This  subroutine  is  called  from  the  MAIN  routine  to  print  the 
cover  or  title  page  for  each  test.  This  cover  page  provides  the 
following  information: 

(1)  The  aircraft  name  and  code  from  which  the  data  were 
measured. 

(2)  The  program  used  in  the  test  analysis. 

(3)  The  date  of  the  computer  run. 

(4)  The  types  of  data  computed  and  printed  for  the  test. 

The  content  and  format  of  this  title  page  can  best  be  under¬ 
stood  by  consulting  the  sample  problem  in  Appendix  D.  With  this 
sample  problem  title  page  as  a  guide,  there  should  be  no  problem 
in  following  the  coding. 

SUBROUTINE  PLT( IRD, JJ1 , JJ2 , JJI) 

This  subroutine  is  called  from  the  MAIN  routine  to  print  a 
plot  of  PNLTX,  ALX,  and  ALTX  versus  angle.  These  data  are  for  the 
reference  distance  (IRD  *  250  feet)  from  the  profile  datasets. 

The  content  and  format  of  this  plot  can  best  be  understood  by  con¬ 
sulting  page  J  in  the  sample  problem  in  Appendix  D.  This  plot 
simplifies  the  selection  or  checking  of  the  10  angles  which  most 
accurately  describe  the  profile  data. 

The  JJI,  JJ2  and  JJI  subroutine  arguments  are  the  indices 
and  the  index  increment  of  these  profile  measures  in  array  SENX. 

IRD  is  the  index  of  the  reference  distance  in  array  SENX. 

Method 

The  first  segment  of  this  subroutine  initializes  the  P  plot 
array,  calls  subroutine  HEADS  to  print  the  page  header  block,  and 
prints  the  plot  symbol  identification  line,  the  top  border  line  and 
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the  first  grid  line  below  the  header  block.  The  label  25  loop 
determines  the  maximum  PNLTX  value  which  is  then  used  to  set  up  the 
abscissa  scale  values.  The  maximum  annotated  scale  value  is  the 
first  multiple  of  ten  greater  than  this  maximum  PNLTX.  The  minimum 
value  is  100  less  than  the  maximum.  The  actual  minimum  and  maximum 
values  are  two  less  and  two  greater  than  these  annotated  scale  values 

The  label  200  loop  sets  up  and  prints  the  plot  for  each  of 
the  19  angles.  The  ordinate  annotation  and  title  and  grid  pattern 
are  determined  from  the  angle  index  I.  The  label  120  loop  scales 
the  PNLTX,  ALX  and  ALTX  data  for  the  It^1  angle  and  sets  up  the 
corresponding  symbol  in  the  plot  array.  The  data  are  then  printed 
and  the  plot  array  is  reinitialized  with  the  data  stored  in  array 
SAV.  There  should  be  sufficient  comments  in  the  coding  to  follow 
the  setup  and  printing  of  the  data. 

SUBROUTINE  RANK ( IREQ , IERR) 

This  subroutine  is  called  from  the  MAIN  routine  to  determine 
the  reference  data  (one  or  two  datasets)  required  to  compute  the 
profile  output  for  each  requested  output  power  setting  (PSC  or  PSCF) . 
The  indices  of  these  reference  data  are  stored  in  array  IREQ  for 
each  power  setting.  Subroutine  argument  IERR  is  a  program  error 
flag  which  is  returned  greater  than  zero  when  errors  occurred  in 
this  subroutine. 

Method 

The  DECODE  function  is  used  to  convert  the  input  (PS)  and  out¬ 
put  (PSC)  power  setting  data  from  character  format  to  floating  point. 
The  floating  point  data  are  required  for  ranking  and  interpolating 
the  data. 

Next  this  subroutine  ranks  all  normal  reference  file  power 
setting  data  (PSIF)  and  all  normal  requested  output  power  setting 
data  (PSCF) .  The  special  case  data  which  may  not  be  interpolated 
(Afterburner,  Wet  and  With  Jets)  are  not  ranked.  These  ranked  power 
setting  data  are  then  used  to  determine  which  reference  data  are 


required  to  interpolate  profile  data  for  each  (IC)  output  power 
setting.  Indices  of  these  reference  data  are  defined  in  array 
IREQ  for  each  output  power  setting.  If  profile  data  for  the 
<,ame  reference  power  setting  are  required  to  interpolate  profile 
data  for  two  or  more  consecutive  output  power  settings ,  the  index 
of  this  reference  power  setting  is  stored  in  consecutive  columns 
in  the  same  row  in  array  IREQ. 

Profile  data  at  these  reference  power  settings  are  later  ex¬ 
trapolated  from  the  reference  SPL  spectra  (see  MAIN  routine)  as 
requested  in  array  IREQ;  thus,  only  those  profile  reference  data 
required  to  interpolate  data  at  the  profile  output  power  settings 
are  extrapolated  by  the  program.  Also,  to  conserve  storage,  ref¬ 
erence  profile  data  storage  is  limited  to  the  two  power  settings 
required  to  compute  each  output  profile  power  setting;  however, 

IREQ  is  checked  to  avoid  duplicate  reference  profile  computations. 

There  should  be  sufficient  comments  in  the  coding  to  follow 
the  setup  of  the  IREQ  index  array. 

SUBROUTINE  SUMRY ( IREQ , IEDIT , FMXER) 

This  subroutine  is  called  from  the  MAIN  routine  to  print  the 
OMEGA  11  summary  page  which  lists  job  identification  parameters 
as  well  as  a  summary  of  the  input  and  output  data.  This  page  is 
the  only  tab  output  when  the  program  print  flag,  IPR,  is  less  than 
one.  The  subroutine  arguments  are  defined  as  follows: 

(1)  IREQ  is  an  array  containing  the  indices  of  the  reference 
datasets  used  to  interpolate  the  profile  data. 

(2)  IEDIT  is  a  program  flag  which  controls  the  editing  of 
the  profile  data. 

(3)  FMXER  is  the  maximum  error  permitted  in  the  EDIT  sub¬ 
routine  . 

If  the  sample  problem  summary  page  is  used  as  a  guide,  the  coding 
in  this  subroutine  should  be  easy  to  follow. 
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SUBROUTINE  EDIT ( IRD , J1 , J2 , JI , ACC , PSC, PSU , FMXER) 

This  subroutine  is  called  from  the  MAIN  routine  to  select 
the  ten  angles  for  each  measure  (PNLTX,  ALX  and  ALTX)  which  best  de- 
fine  the  angle  versus  noise  level  data  for  that  measure  at  the  re-  V 

ference  distance  (250  feet) .  Actually  only  eight  angles  are  se¬ 
lected  by  this  routine,  since  angles  0  and  180  degrees  are  always 
included.  Reference  distance  profile  data  for  all  three  measures  j 

at  all  19  angles  are  used  to  compute  the  three  sets  of  ten  angles, 
even  though  only  one  or  two  of  the  measures  are  required  for  the 
data  analysis  (see  MEAS  program  flag) . 

The  subroutine  arguments  are  defined  as  follows: 

(1)  IRD  is  the  index  of  the  reference  distance. 

(2)  Jl  and  J2  are  the  indices  of  the  PNLTX  and  ALTX  data  in 
array  SENXD  and  JI  is  the  index  increment  (ALX  data  is  in  index 
Jl  +  JI) . 

(3)  ACC  is  aircraft  code,  PSC  is  the  power  setting  for  which 
the  data  are  being  computed,  and  PSU  are  the  power  setting  units. 

(4)  FMXER  is  the  maximum  error  permitted  in  this  EDIT  rou¬ 
tine  (default  FMXER=5 . 0 ) . 

Method 

The  following  outline  describes  the  method  used  to  obtain  the 
best  set  of  ten  angles: 

(1)  Compute  the  18  angle  to  angle  changes  in  PNdB  or  dBA 
for  each  measure  (slopes)  and  store  in  array  SL. 

(2)  Compute  the  17  changes  in  slope  (DSL)  for  each  measure 
and  assign  to  angles  10,  20,  ...,  170  degrees.  Store  these  data  in 
array  DSL. 

(3)  Rank  the  absolute  values  of  these  17  changes  in  slope 
(DSL)  for  each  measure  (label  50  loop) . 

(4)  The  eight  angles  with  the  largest  rank  (ie.  largest 
change  in  slope;  rank  10  to  17)  plus  angles  0°  and  180°  will  be 
the  initial  guess  for  the  desired  10  angles  for  each  measure. 

There  are  three  sets  of  10  angles,  one  for  each  measure.  The  rank 
data  are  stored  in  array  NR. 
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(5)  Using  the  selected  10  angles  and  linear  interpolation, 
compute  the  difference  between  the  original  and  interpolated  data 
for  each  angle;  ie.,  compute  the  error.  The  error  for  the  10 
selected  angles  will  always  be  zero;  thus,  the  RMS  of  the  error  is 
computed  only  for  the  9  remaining  angles : 

RMS  =  iiERpI2  . 

These  error  data  are  computed  by  subroutine  ERR. 

(6)  Compute  the  error  and  RMS  error  described  in  step  5  above 
for  each  measure  three  times  using  the  three  sets  of  angles  (step 

4)  for  each  measure.  For  example,  for  PNLTX  compute  the  RMS  of  the 
error  using  the  angles  selected  for  PNLTX,  ALX  and  ALTX.  For  each 
measure,  save  the  angles,  error  data  and  RMS  for  the  smallest  RMS 
error  (see  statement  label  150  and  200  loops) . 

(7)  Determine  the  angle  with  the  largest  error  using  the 
error  data  in  step  6  above  (for  one  measure  at  a  time) .  If  this 
error  is  greater  than  ERMAX  (ERMAX=1.49  dB) ,  select  this  angle  as 
one  of  the  eight  to  be  chosen  and,  one  at  a  time,  delete  each  of 
the  eight  angles  previously  selected  computing  the  error  and  RMS 
error  for  each  of  the  eight  sets.  Determine  the  best  of  the  eight 
RMS  values  and,  if  better  than  the  RMS  in  step  6  above,  revise  the 
angle  set  for  this  measure.  If  no  improvement  is  found,  repeat 
the  above  using  the  second  largest  error  greater  than  ERMAX.  This 
step  is  performed  by  subroutine  ITER  called  from  this  routine. 

(8)  Repeat  step  7  above  a  maximum  of  five  times  (in  subrou¬ 
tine  ITER)  or  until  all  error  are  less  than  ERMAX  (maximum  of  five 
passes  including  the  second,  third  etc.,  largest  error  passes). 

(9)  Repeat  steps  7  and  8  above  for  each  of  the  three  mea¬ 
sures  (label  200  loop) . 

(10)  At  this  point  we  have  revised  sets  of  angles  (compared 
with  step  6  above)  for  a  measure  only  if  one  or  more  errors  were 
greater  than  ERMAX  for  that  measure.  If  any  angle  sets  have  been 
revised,  repeat  steps  6  through  9  above  using  the  new  angle  sets 
instead  of  those  from  step  4;  otherwise,  use  angle  sets  selected 


in  step  6  as  final  values  for  each  measure.  The  repeat  of  steps  6 
through  9  are  computed  by  the  statement  label  220  and  230  loops 
which  also  use  subroutines  ERR  and  ITER. 

(11)  Return  the  angle  set  for  each  requested  measure  to  the 
MAIN  routine  in  array  NR.  The  angle  set  consists  of  those  angles 
whose  rank  is  from  10  to  17  in  array  NR.  Print  error  messages  if 
the  interpolation  errors  using  these  final  selected  angles  exceed 
FMXER  (default  FMXER=5.0). 

SUBROUTINE  ERR ( J, JA , NRA, RMS A, ERA, JM) 

This  subroutine  is  called  from  subroutines  EDIT  and  ITER 
to  compute  the  error  data  as  described  in  step  5  in  subroutine 
EDIT.  The  subroutine  arguments  are: 

(1)  J  is  the  measure  index  of  the  original  data. 

(2)  JA  is  the  measure  index  in  the  rank  (NRA),  error  (ERA) 
and  RMS  error  ( RMS A)  arrays.  JA  indicates  the  angle  set  being  used 
to  interpolate  the  above  J  measure  data. 

(3)  NRA,  ERA  and  RMSA  are  defined  in  (2)  above. 

(4)  jm  is  the  variable  dimension  of  arrays  NRA,  ERA  and  RMSA 

Method 

Subroutine  FINTP  is  called  to  linearly  interpolate  the  PNdB 
or  dBA  levels  of  the  nine  angles  with  rank  less  than  ten.  The 
error  data  are  then  computed  as  follows: 


where 


erai,ja  =  SENXI,J  -  DBCI 


RMSA 


JA 


■  [5  l  <erai,j*>211/2 


ERA,  ta 
I ,  JA 

SENXT  _ 

l ,  J 


=  the  interpolation  error  in  PNdB  or  dBA  for  the 
Ith  angle  and  measure  index  JA. 

=  the  computed  measure  data  in  PNdB  or  dBA  for 
angle  I  and  measure  J. 


the  interpolated  measure  value  in  PNdB  or  dBA 
for  angle  I. 

the  RMS  error  for  measure  index  JA. 

The  above  error  data  (ERAj  JA)  are  zero  for  the  eight  angles  with 
rank  greater  than  nine;  thus  the  RMS  error  are  computed  by  dividing 
the  sum  of  the  error  data  by  nine. 

SUBROUTINE  FINTP ( AG , DBC ,  X ,  Y ) 

This  is  a  linear  interpolation  subroutine  called  by  subroutine 
ERR  to  interpolate  the  measure  data  for  angles  with  rank  less  than 
ten.  Arrays  X  and  Y  contain  the  angle  and  corresponding  noise  level 
data  (PNdB  or  dBA)  for  angles  0  and  180  degrees  plus  the  eight  angles 
with  rank  greater  than  nine.  Array  AG  contains  the  19  angle  values 
in  ten  degree  increments  from  0  to  180  degrees.  Array  DBC  contains 
the  noise  level  computed  by  this  subroutine  for  the  19  angles. 

Method 

For  angles  defined  in  array  X  (rank  greater  than  9) ,  DBC T  is 

tJ 

set  equal  to  the  given  noise  level: 

DBCJ  =  YL  PNdB  or  dBA 

where 

Vi 

DBCj  =  noise  level  for  the  j  angle. 

*  the  given  noise  level  corresponding  to  angle  XL 
which  is  the  same  as  angle  AGT. 

For  angles  which  must  be  interpolated  the  linear  interpolation  func¬ 
tion  is: 


DBCj 

RMSA 

JA 


XI  -  X 

DBCj-  =  VL1  +  (Yl  -  Yl1)  (_  x 


LI, 


LI 


PNdB  or  dBA 


where 


DBCj  =  the  interpolated  noise  level  for  the  J  angle. 

XI  =  angle  AG^. 

L  =  the  index  of  the  first  angle  in  array  X  greater 
than  XI . 

LI  =  L  -  1. 

XL  =  first  angle  greater  than  XI. 

XL^  =  first  angle  less  than  XI. 

YT  =  given  noise  level  corresponding  to  angle  Xr . 

Yl1  =  given  noise  level  corresponding  to  angle  XL1 

SUBROUTINE  ITER( J, JMN , ICK , ERMAX , NRD) 

This  subroutine  is  called  from  subroutine  EDIT  to  perform 
the  interations  described  in  steps  7  and  8  in  subroutine  EDIT. 
The  subroutine  arguments  are: 

(1)  J  .is  the  index  of  the  original  measure  data  and  of  the 
rank  (NRD)  and  RMS  error  (RMS)  data. 

(2)  JMN  is  the  index  of  the  minimum  error  set  in  array  ER. 

(3)  ICK  is  an  error  flag  which  is  one  when  an  error  greater 
than  ERMAX  was  found  in  this  routine.  This  usually  results  in  a 
change  in  rank  (angles  selected) . 

(4)  ERMAX  is  a  dB  level  defined  in  subroutine  EDIT.  An 
attempt  is  made  to  improve  the  angle  selection  for  interpolation 
errors  greater  than  or  equal  to  this  level . 

(5)  NRD  is  a  dummy  rank  array. 


APPENDIX  A 

OMEGA  10  CODE  SHEETS  AND  SETUP  PROCEDURE 


This  Appendix  contains  the  standard  procedure  for  setup  and 
execution  of  the  OMEGA  10  program  which  includes  the  OMEGA  10  pr 
gram  code  sheets  and  a  detailed  description  of  each  code  sheet 
parameter  and  alphanumeric  data  field. 


OMEGA  10  PROGRAM  CODE  SHEET 


JOB  CONTROL  CARD  (One  Per  Job) : 

Col.  1 _ b _ b _ DATE;  eg  29  JUT!  77 

11 _ DATN ;  Data  in  DAMOYR  form,  eg.  290677 

18  _  IPR  10—  no  print] 

20  _  MEAS(l)  EPNL  [0  for  IPR-0;  1  for  IPR-1] 

22  _  MEAS (2)  SELT  (0  for  IPR-0;  1  for  IPR-1) 

24  _  MEAS (3)  SEL  [1  for  IPR-0;  1  for  IPR-1] 

26  _  IPU  [1  for  IPR-0;  0  for  IPR-1] 

OUTPUT  PARAMETERS  FOR  EACH  AIRCRAFT  ( 2  or  3  Cards) : 

Card  ♦! 

Col.  1 _ ACC 

4 _ I TEMP  1 59  °F ] 

7 _ IRHUM  [70*] 

11  _  PV  [w] 

13  _  CRI  [0] 

IS  DELN  [0.0] 


22 _ PSU  (left  justify) 

Card  *2  (Profile  Output  Power  Data) 


1 _ 

_  PSC 

♦1 

Col.  6 

_ _  VX 

col.  9 

_  OPCR  Col. 

11 

_  OPCC 

tan 

13  _ _ 

_  PSC 

#2 

18 

_  VX 

21 

_  OPCR 

23 

_  OPCC 

[82] 

25 

_  PSC 

*3 

30 

_  VX 

33 

_  OPCR 

35 

_  OPCC 

[83] 

37  _  _ 

_ _ PSC 

*4 

42 

_  VX 

45 

_  OPCR 

47 

_  OPCC 

[84] 

49 

_  PSC 

#5 

54 

_  VX 

57 

_  OPCR 

59 

_ OPCC 

[85] 

61 _ 

_ _ PSC 

#6 

66 

_ VX 

69 

OPCR 

71 

OPCC 

[86] 

Card  *3  (Profile  Output  Power  Data  Conti.;  required  only  when  NP>6) 
Col.  1  PSC  #7  Col.  6  VX  Col.  9  OPCR  Col.  11 


1 

_  PSC 

#7 

Col.  6 

_  VX 

Col.  9 

_  OPCR  Col. 

11 

_  OPCC 

[87] 

13 _ 

_  PSC 

*8 

18 

_  VX 

21 

_  OPCR 

23 

_  OPCC 

[88] 

25  _  _ 

_  PSC 

♦  9 

30 

_  VX 

33 

_  OPCR 

35 

_  OPCC 

[89] 

37 _ 

_ _  PSC 

*10 

42 

_  VX 

45 

_  OPCR 

47 

_  OPCC 

[90] 

49  _  _ 

__  PSC 

*11 

54 

_  VX 

57 

_  OPCR 

59 

_  OPCC 

[91] 

61  _ 

_  PSC 

*12 

66 

VX 

69 

OPCR 

71 

OPCC 

[92] 

(Right  Justify  "PSC"  Data) 


TERMINATE  SETUP  DECK  WITH  AN  "END  OF  RECORD’  OR  "END  OF  JOB"  CARD 


(1)  Repeat  section  II  for  each  aircraft  set  in  the  job. 

(2)  {  ]  —  Program  default  values  for  the  above  parameters. 

(3)  See  Standard  Procedure  for  Se.tup  and  Execution  of  the  OMEGA  10  Program  for  above 
parameter  definitions. 
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STANDARD  PROCEDURE  FOR  SETUP 
AND 

EXECUTION  OF  THE  OMEGA  10  PROGRAM 


The  OMEGA  10  setup  deck  must  contain  the  following: 

(a)  One  job  control  card: 

(b)  One,  two  or  three  output  parameter  cards  for  each  set 
of  profile  data  for  each  aircraft. 

The  parameters  required  for  each  card  are  listed  on  the  OMEGA 

10  code  sheet  and  described  in  detail  in  Steps  2  and  3  below. 

Fill  in  the  OMEGA  10  code  sheet  job  control  card  parameters 

were  default  conditions  do  not  apply  (code  sheet  Item  I) . 

The  required  parameters  are  defined  as  follows: 

(a)  The  DATE  in  columns  1  to  9  will  be  printed  on  all  output 
pages  and  in  the  first  comment  line  in  each  profile  data¬ 
set  (9  alphanumeric  characters). 

(b)  The  date  in  the  day,  month,  year  form  (DATN)  in  columns 
11  to  16  is  printed  as  part  of  the  run  identification  on 
all  the  plot  pages  (G,  J,  K,  N,  and  O) .  It  is  not  used 
in  the  no-print  mode  and  thus  may  be  left  blank  on  the 
code  sheet. 

(c)  The  value  of  IPR  (integer)  sets  the  print  (IPR=1)  or  no¬ 
print  (IPR=0  or  blank)  mode  of  the  OMEGA  10  job.  In  the 
no  print  mode  (default) ,  only  error  messages  and  the  sum¬ 
mary  page  are  printed  on  the  OUTPUT  file  (TAPE6)  and  only  the 
measure  requested  on  the  code  sheet  is  computed.  In  the 
print  mode,  all  seven  measures  are  computed  and  all  output 
are  printed  on  the  OUTPUT  file. 

(d)  The  MEAS(l),  MEAS(2)  and  MEAS(3)  parameters  (integers) 
determine  which  noise  measures  (EPNL,  SELT  and  SEL  re¬ 
spectively)  are  computed  by  the  program.  In  the  print 
mode  (IPR=1) ,  all  three  are  always  set  equal  to  one  by 
the  program  because  all  three  measures  are  required;  thus 
they  may  be  left  blank  on  the  code  sheet.  In  the  no-print 
mode  (IPR=0  or  blank) ,  measure  data  will  be  computed  only 
for  the  one  MEAS  parameter  which  is  greater  than  zero 
(default  is  MEAS(3)=1  and  SEL  is  computed).  Note  that 
the  PNL,  PNLT,  AL  and  ALT  noise  measures  are  always  com¬ 
puted  and  printed  in  the  print  mode?  however  they  cannot 
be  written  to  file  TAPE 3. 


(e)  IPU  (integer)  controls  the  printing  of  the  profile  data¬ 
sets  on  file  TAPE3  which  may  be  equivalenced  or  copied  to 
the  PUNCH  file.  For  XPU  equal  blank  or  zero  (default  for 
IPR=1)  ,  no  data  are  written  on  TAPE 3 .  For  IPU  equal  to 
one  (default  for  IPR=0  or  blank) ,  all  profile  data  are 
written  on  TAPE 3 . 

Fill  in  the  OMEGA  10  code  sheet  output  parameters  for  each  air¬ 
craft  where  default  parameters  do  not  apply  (code  sheet  Item 
II) •  One,  two,  or  three  cards  are  required  for  each  aircraft 
set  depending  on  the  value  of  NP  defined  below.  The  required 
parameters  are  defined  as  follows: 

(a)  ACC  must  be  a  three  character  numeric  aircraft  code.  ACC 
is  part  of  the  profile  dataset  COMDECK  name  and  part  of 
the  output  profile  identification  required  by  the  NOISEMAP 
program.  It  is  also  used  to  search  the  reference  file  for 
the  required  reference  data. 

(b)  ITEMP  and  IRHUM  (integers)  are  the  output  temperature 

( °F)  and  relative  humidity  (%) ,  respectively.  The  default 
values  listed  on  the  code  sheet  are  for  standard  day  con¬ 
ditions  . 

(c)  PV  is  an  alphanumeric  profile  version  code  (usually  alpha) 
which  is  printed  on  all  output  and  is  the  second  last 
character  in  the  profile  COMDECK  name.  One  function  of 
PV  would  be  to  make  COMDECK  names  unique  when  the  same 
aircraft  data  are  run  for  different  weather  conditions 
(NOISEMAP  does  not  read  the  PV  code) . 

(d)  CRI  is  an  alphanumeric  COMDECK  revision  identifier  (usually 
integer)  which  is  printed  on  the  summary  page  and  is  the 
last  character  in  the  profile  COMDECK  name.  CRI  is  design¬ 
ed  to  make  COMDECK  names  unique  when  several  revisions  of 
the  same  data  are  stored  in  the  NOISEFILE  3  and  4  data 
bases.  The  CRI  default  value  will  normally  apply  (not 
read  by  the  NOISEMAP  program) . 

(e)  DELN  (or  "DELTA  N)  is  the  dB  level  to  be  added  to  all 
reference  data  for  this  aircraft  (floating  point  or  right 
justified  integer) .  It  is  printed  on  the  summary  profile 
data  pages  and  is  typically  used  to  adjust  data  for 
multiple  engines . 

(f)  NP  is  the  number  of  power  settings  (PSC's)  to  be  computed 
for  this  ACC.  If  NP  is  zero  or  blank,  profile  data  are 
computed  for  all  operation  power  codes  (for  ACC)  in  the 
reference  file  with  the  reference  file  airspeed  and  power 
settings;  also  the  output  operation  power  codes  (OPCC)  are 
the  same  as  the  operation  power  codes  in  the  reference 
file  (that  is,  for  NP=0,  cards  two  and  three  are  not  read 
by  the  program) .  NP  must  be  an  integer  less  than  or  equal 
to  12. 


(g)  PSU  is  the  power  setting  unit  which  applies  to  the  PSC 
data.  PSU  is  also  used  to  select  the  reference  file 
power  setting  data;  thus  it  must  exactly  match  (including 
blanks)  one  of  the  units  in  the  reference  file  or  the  ACC 
data  will  be  terminated.  PSU  must  be  left  justified  in 
the  6  character  field  (alphanumeric) .  For  the  NP=0  option, 
the  PSU  field  may  be  left  blank  in  which  case  the  first 
power  setting  data  will  be  carried  with  the  profile  data. 

(h)  The  PSC's  are  the  power  setting  values  for  which  profile 
data  are  computed.  The  PSC  data  may  be  listed  as  integer 
or  floating  point  in  any  desired  sequence,  but  in  either 
case  must  be  right  justified  in  the  five  character  field. 
Note  that  each  reference  dataset  contains  the  source  power 
setting  in  one,  two,  or  three  different  units  in  the  third 
comment  card.  The  PSU  parameter  described  in  item  3g  above 
specifies  which  of  these  power  settings  the  OMEGA  10  pro¬ 
gram  will  use  to  interpolate  the  profile  data.  The  PSC's 
are  printed  in  the  third  comment  card  in  each  profile 
dataset,  on  all  profile  output  pages,  and  on  the  summary 
page. 

(i)  The  VX's  are  the  airspeed  values  (right  justified  integers) 
in  knots  to  which  the  profile  data  are  adjusted.  They  are 
printed  in  the  first  comment  line  in  each  profile  dataset, 
on  all  profile  data  output  pages,  and  on  the  final  summary 
page. 

(j)  The  OPCR's  (numeric  with  leading  zero)  are  reference  file 
operation  power  codes  which  determine  the  operation  power 
descriptions  of  the  profile  data  and  the  reference  points 
(SEL,  SELT,  or  EPNL  versus  power  setting)  from  which  the 
measure  data  for  the  PSC  power  settings  are  interpolated 
or  extrapolated  (the  slope  line  passes  through  this  refer¬ 
ence  point) .  The  COMDECK  names  of  the  reference  file  data¬ 
sets  for  this  reference  point  and  for  the  two  slope  points 
are  printed  on  the  summary  page. 

(k)  The  OPCC's  are  two  character  numeric  operation  power  codes 
assigned  to  the  output  profile  data.  The  OPCC  are  part 

or  the  COMDECK  name  and  are  also  part  of  the  profile  iden¬ 
tification  used  by  the  NOISEMAP  program.  Default  values 
are  81  to  92.  For  NP  equal  to  zero,  the  OPCC’s  are  set 
equal  to  be  reference  file  OPC's. 

The  following  comments  apply  to  the  PSC,  VX  and  OPCR  data: 

(a)  For  OPCR  equal  to  01,  02,  08,  09,  10,  17,  18  or  19,  the 
PSC  power  setting  must  be  the  same  as  the  reference  file 
power  setting  or  the  PSC  data  will  be  deleted  from  the 
run;  that  is,  no  extrapolation  or  interpolation  is  per¬ 
mitted  for  these  OPCR's.  For  OPCR  equal  to  17,  18  or  19, 
the  VX  airspeed  must  also  be  the  same  as  the  reference 
file  airspeed. 


(b)  For  OPCR  equal  to  15  or  16  and  PSC  not  equal  to  the  re¬ 
ference  file  power  setting,  both  OPC's  15  and  16  must  be 
in  the  reference  file. 

(c)  When  the  PSC  power  setting  is  the  same  as  the  reference 
file  power  setting  designated  by  OPCR,  then  only  the  OPCR 
reference  file  data  are  required  to  compute  the  PSC  pro¬ 
file  data.  For  all  other  cases  where  PSC  is  not  the  same, 
at  least  one  additional  reference  file  dataset  is  required 
to  apply  the  A "6  rules.  It  is  assumed  here  that  the  in¬ 
dividual  completing  the  code  sheet  is  familiar  with  the 
A”6  rules  or  at  least  the  A " 6  requirements  and  limitations 

(d)  If  new  operation  power  codes  are  added  to  the  reference 
file,  the  OMEGA  10  program  must  be  modified  to  apply  the 
A "6  rules  to  the  new  OPC's. 

Repeat  Step  3  above  for  each  set  of  profile  data  for  each  air¬ 
craft  in  the  job.  If  two  or  more  sets  of  profile  data  are  re¬ 
quired  for  the  same  aircraft  because  of  additional  PSC's  or 
different  DELN  or  weather  data,  the  program  uses  the  reference 
data  read  for  the  previous  set  and  thus  avoids  searching  the 
reference  file  for  the  same  data.  Since  NOISEMAP  uses  an  ID 
composed  of  the  ACC  and  OPCC  codes,  computer  jobs  run  for 
NOISEMAP  input  can  not  use  the  default  OPCC  for  multiple  sets 
for  the  same  ACC?  however,  for  jobs  unrelated  to  NOISEMAP,  PV 
or  CRI  codes  can  be  used  to  make  the  COMDECK  names  unique. 

The  program  will  read  the  reference  data  from  file  "TAPE7" 

(or  unit  7) .  These  data  must  be  on  disk,  tape  or  cards  in 
card  image  format;  not  in  the  NOISEFILE  4  CDC  UPDATE  format. 

The  program  rewinds  the  TAPE7  file  before  searching  for  the 
aircraft  (ACC)  data;  thus,  aircraft  sequence  is  not  important 
in  the  OMEGA  10  job  or  on  file  TAPE7  (all  data  for  each  air¬ 
craft  must  be  back  to  back  in  TAPE7) .  The  program  reads  and 
stores  all  reference  data  for  all  operation  power  codes  (MAX 
of  6)  available  on  TAPE7  for  aircraft  ACC.  If  TAPE7  contains 
more  than  six  operation  power  codes  for  aircraft  ACC,  a  warn¬ 
ing  message  is  printed  and  only  the  first  six  are  read  and 
stored  by  the  program. 


Execution  of  the  OMEGA  10  program  requries  a  CM  of  54000o. 

0 

The  files  are  setup  as  follows: 

OMEGAIO ( INPUT , OUTPUT , TAPE5=INPUT , TAPE6=OUTPUT , TAPE 7 , TAPE 3 ) 

where  TAPE7  is  the  reference  file  and  TAPE 3  is  the  profile 
dataset  output  file. 

After  execution  of  the  computer  job,  the  following  data  are 
available: 

(a)  The  summary  pages  and  all  other  tab  printout  are  on  the 
OUTPUT  file  or  any  file  equivalenced  to  the  OUTPUT  file 
at  execution  time. 

(b)  The  profile  data  are  on  file  "TAPE3"  which  may  be  punched, 
copied  onto  tape  or  cataloged  as  a  permanent  disk  file. 

It  may  be  desirable  to  rewind  the  TAPE 3  file  and  do  a 
COPYSBF  onto  the  OUTPUT  file  to  obtain  a  listing  of  the 
profile  data. 

Data  for  aircraft  code  ACC  will  be  deleted  from  the  computer 
job  and  an  error  message  printed  when  one  or  more  of  the 
following  problems  occur: 

(a)  The  PSU  from  the  code  sheet  doesn't  match  the  first  power 
setting  units  for  ACC  in  the  reference  file. 

(b)  There  is  an  error  in  the  operation  power  code,  aircraft 
code,  or  card  seqeunce  in  one  or  more  reference  file  data 
cards . 

(c)  The  reference  file  minimum  slant  range  is  not  within  1% 
of  a  standard  profile  distance. 

(d)  No  reference  data  were  found  for  this  aircraft  in  the 
reference  file. 

Data  for  operation  power  code  OPCC  will  be  deleted  from  the 
aircraft  set  and  an  error  message  printed  when  one  or  more 
of  the  following  occur: 

(a)  There  is  insufficient  data  for  extrapolation  or  inter¬ 
polation  to  the  PSC  power  setting. 

(b)  The  reference  file  and  the  PSC  power  settings  are  not 
equal  as  required  for  this  OPCR. 

(c)  The  reference  file  and  the  VX  airspeeds  are  not  the  same 
as  required  for  this  OPCR. 


(d)  The  reference  operation  power  code  (OPCR)  was  not  found 
in  the  reference  file. 

11)  Warning  messages  are  printed  when  one  or  more  of  the  following 
occur : 

(a)  The  reference  file  contains  more  than  six  datasets;  only 
the  first  six  are  read  for  this  aircraft. 

(b)  The  reference  file  minimum  slant  range  is  not  equal  to 
1000  feet  as  assumed  by  the  program  in  subroutines  DELTA6 
and  PPFDAT . 

(c)  The  PSC  for  NORMAL  RATED  THRUST  (OPCR=12)  is  less  than 
the  reference  file  APPROACH  power  setting. 

12)  The  entire  computer  job  is  terminated  when  an  "END  of  FILE" 
is  read  from  the  input  file.  This  is  the  normal  job  termina¬ 
tion. 


APPENDIX  B 

OMEGA  11  CODE  SHEETS  AND  SETUP  PROCEDURE 

This  Appendix  contains  the  standard  procedure  for  setup  and 
execution  of  the  OMEGA  11  program  which  includes  the  OMEGA  11  pro¬ 
gram  code  sheets  and  a  detailed  description  of  each  code  sheet 
parameter  and  alphanumeric  data  field. 
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STANDARD  PROCEDURE  FOR  SETUP 
AND 

EXECUTION  OF  THE  OMEGA  11  PROGRAM 
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I 
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1)  The  OMEGA  11  setup  deck  must  contain  the  following: 

(a)  One  job  control  card; 

(b)  Two  output  parameter  cards  for  each  set  of  profile  data 
for  each  aircraft. 

The  parameters  required  for  each  card  are  listed  on  the  OMEGA 

11  code  sheet  and  described  in  detail  in  Steps  2  and  3  below. 

2)  Fill  in  the  OMEGA  11  code  sheet  job  control  card  parameters 

where  default  conditions  do  not  apply  (code  sheet  Item  I) . 

The  required  parameters  are  defined  as  follows: 

(a)  The  DATE  in  columns  1  to  9  will  be  printed  on  all  output 
pages  and  in  the  first  comment  line  in  each  profile  data¬ 
set  (9  alphanumeric  characters) . 

(b)  The  value  of  IPR  determines  the  quantity  of  tab  printout 
on  the  OUTPUT  file.  If  IPR  is  zero  or  blank,  only  the 
summary  page  and  program  error  messages  are  printed  for 
each  aircraft.  If  IPR  is  greater  than  zero,  all  tab  out¬ 
put  are  printed  (IPR  must  be  an  integer) . 

(c)  The  value  of  IEDIT  determines  the  quantity  of  profile 
dataset  output  written  of  file  TAPE2 .  If  IEDIT  is  zero 
or  blank,  the  profile  datasets  for  each  requested  measure 
contain  data  for  the  10  angles  which  best  define  the  pro¬ 
file  data  (using  linear  interpolation)  from  0°  to  180°. 

If  IEDIT  is  greater  than  zero,  profile  data  for  all  19 
angles  are  written  on  TAPE2;  for  IEDIT  less  than  zero, 
all  profile  data  are  omitted  from  TAPE2  (IEDIT  must  be 

an  integer) . 

(d)  The  MEAS(l),  MEAS ( 2 )  and  MEAS(3)  parameters  determine 
which  noise  measures  (PNLT,  AL  and  ALT  respectively)  are 
computed  by  the  program.  If  all  three  are  zero  or  blank, 
all  measures  are  computed;  otherwise,  only  measures 
corresponding  to  MEAS  greater  than  zero  are  computed 
(all  MEAS  roust  be  integer) . 

(e)  The  value  of  FMXER  is  the  maximum  linear  interpolation 
error  permitted  in  the  angle  selection  routine.  For 
errors  greater  than  FMXER,  error  messages  are  printed 
but  the  aircraft  analyses  are  not  terminated.  Typically, 
the  largest  error  in  a  relatively  smooth  profile  is  1.0 
to  1.5  dB  or  less.  FMXER  which  applies  only  when  IEDIT 
is  zero  or  blank  must  be  listed  as  a  floating  point  num¬ 
ber  or  right  justified  integer  (default  is  5.0  dB) . 
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Fill  in  the  OMEGA  11  code  sheet  output  parameters  for  each 

aircraft  where  default  parameters  do  not  apply  (code  sheet 

Item  II).  The  required  parameters  are  defined  as  follows: 

(a)  ACC  must  be  a  three  character  numeric  aircraft  code. 

ACC  is  part  of  the  profile  dataset  COMDECK  name  and  part 
of  the  output  profile  identification  required  by  the 
NOISEMAP  program.  It  is  also  used  to  search  the  refer¬ 
ence  file  for  the  required  reference  data  (see  Step  4 
below  regarding  multiple  sets  for  the  same  aircraft  code) . 

(b)  IT8,  P8  and  IH8  are  the  output  temperature  (°F),  baro¬ 
metric  pressure  (in  Hg)  and  relative  humidity  (%)  respec¬ 
tively.  The  default  values  listed  on  the  code  sheet  are 
for  standard  day  conditions.  IT8  and  IH8  must  be  integers 
and  P8  must  be  floating  point. 

(c)  PV  is  an  alphanumeric  profile  version  code  (usually  alpha) 
which  is  printed  on  all  tab  output  and  is  the  second 
last  character  in  the  profile  COMDECK  name.  One  function 
of  PV  would  be  to  make  COMDECK  names  unique  when  the 
same  aircraft  data  are  run  for  different  weather  condi¬ 
tions  (NOISEMAP  does  not  read  the  PV  code) . 

(d)  CRI  is  an  alphanumeric  COMDECK  revision  identifier  (usu¬ 
ally  integer)  which  is  printed  on  the  summary  page  and 
is  the  last  character  in  the  profile  COMDECK  name.  CRI 
is  designed  to  make  COMDECK  names  unique  when  several 
revisions  of  the  same  data  are  stored  in  the  NOISEFILE  3 
and  4  databases.  The  CRI  default  value  will  normally 
apply  (not  read  by  the  NOISEMAP  program) . 

(e)  DELN  (or  "DELTA  N")  is  the  dB  level  to  be  added  to  all 
reference  data  for  this  aircraft  (floating  point  or  right 
justified  integer) .  It  is  printed  on  the  summary  and 
reference  data  pages  and  is  typically  used  to  adjust  data 
for  multiple  engines. 

(f)  NP  is  the  number  of  power  settings  (PSC's)  to  be  computed 
for  this  ACC.  If  NP  is  zero  or  blank,  profile  data  are 
computed  for  all  operation  power  codes  (for  ACC)  in  the 
reference  file;  also  the  output  operation  power  codes 
(OPCC)  are  the  same  as  the  operation  power  codes  in  the 
reference  file  (that  is,  for  NP=0 ,  card  2  columns  2  to 

70  are  not  read  by  the  program) .  NP  must  be  an  integer 
less  than  or  equal  to  6 . 

(g)  PStJ  is  the  power  setting  unit  which  applies  to  the  PSC 
data.  PSU  must  exactly  match  (including  blanks)  the 
units  in  the  reference  file  or  the  ACC  data  will  be  ter¬ 
minated.  PSU  must  be  left  justified  in  the  6  character 
field  (alphanumeric) .  Note  that  the  program  checks  only 
the  first  power  setting  data  in  the  reference  file;  thus 
only  the  first  reference  file  power  setting  can  be  used 
to  interpolate  profile  data. 


(h)  The  PSC's  are  the  power  setting  values  for  which  profile 
data  are  computed.  All  PSC  values  must  lie  within  the 
extremes  available  on  the  reference  file.  For  uniformity, 
list  special  case  PSC  data  (IFC=1)  first  followed  by  the 
normal  PSC  data  (IFC=0) ;  each  in  sequence  from  low  to 
high  (not  required. by  the  program) .  The  PSC  data  may  be 
listed  as  integer  or  floating  point,  but  in  either  case 
must  be  right  justified  in  the  five  character  field. 

Note  that  each  reference  dataset  contains  the  source 
power  setting  in  one,  two,  or  three  different  units  in 
the  third  comment  card;  however,  only  the  first  power 
setting  (value  and  units)  is  used  for  interpolation  by 
the  OMEGA  11  program. 

(i)  IFC  is  a  program  flag  used  to  separate  the  AFTERBURNER, 

WET  or  WITH  JETS  special  case  data  from  the  normal  power 
data.  IFC  must  be  zero  or  blank  for  normal  data  and  one 
(1)  for  special  case  data.  For  special  case  data  (IFC=1) , 
no  interpolation  is  permitted  and  thus  PSC  must  be  exactly 
the  same  as  the  power  setting  in  the  normalized  file. 

(j)  The  OPCC  are  two  character  numeric  operation  power  codes 
assigned  to  the  output  profile  data.  The  OPCC  are  part 
of  the  COMDECK  name  and  are  also  part  of  the  profile 
identification  used  by  the  NOISEMAP  program.  Default 
values  are  91  to  96. 

Repeat  Step  3  above  for  each  set  of  profile  data  for  each  air¬ 
craft  in  the  job.  If  two  or  more  sets  of  profile  data  are  re¬ 
quired  for  the  same  aircraft  because  of  additional  PSC's  or 
different  DELN  or  weather  data,  ACC  should  be  set  equal  to 
"***";  however,  all  other  parameter  must  be  defined  or  default 
conditions  apply.  When  ACC=***,  the  program  uses  the  reference 
data  read  for  the  previous  set  and  thus  avoids  searching  the 
reference  file  for  the  same  data.  Since  NOISEMAP  uses  an  ID 
composed  of  the  ACC  and  OPCC  codes,  computer  jobs  run  for 
NOISEMAP  input  can  not  use  the  default  OPCC  for  multiple  sets 
for  the  same  ACC;  however,  for  jobs  unrelated  to  NOISEMAP,  PV 
or  CRI  codes  can  be  used  to  make  the  COMDECK  names  unique . 

The  program  will  read  the  reference  data  from  file  "TAPE7" 

(or  unit  7).  These  data  must  be  on  disk,  tape  or  cards  in 
card  image  format;  not  in  the  NOISEFILE  4  CDC  UPDATE  format. 

The  program  rewinds  the  TAPE7  file  before  searching  for  the 
aircraft  (ACC)  data;  thus,  aircraft  sequence  is  not  important 
in  the  OMEGA  11  job  or  on  file  TAPE 7  (all  data  for  each  aircraft 


must  be  be  ok  to  back  in  TAPE7).  The  program  reads  and  stores 
all  reference  data  for  all  operation  power  codes  (MAX  of  6) 
available  on  TAPE 7  for  aircraft  ACC.  If  TAPE7  contains  more 
than  six  operation  power  codes  for  aircraft  ACC,  all  computa¬ 
tions  for  that  aircraft  are  terminated  (one  exception:  if  all 
IFC=0 ,  special  case  data  are  not  stored).  The  first  Test 
number  and  Noise  Source/Subject  description  read  from  the  ref¬ 
erence  file  ( TAPE 7 )  are  the  Test  and  Noise  Source/Subject 
description  used  for  this  set  of  profile  data  for  this  air¬ 
craft.  Run  number  is  assigned  from  01  to  06  in  sequence  of  the 
PSC  output. 

After  execution  of  the  computer  job,  the  following  data  are 
available : 

(a)  The  summary  pages  and  all  other  computer  printouts  are  on 
the  OUTPUT  file  or  any  file  equivalenced  to  the  OUTPUT 
file  at  execution  time. 

(b)  The  profile  data  are  on  file  "TAPE 2 "  which  may  be  punched, 
copied  onto  tape  or  cataloged  as  a  permanent  disk  file. 

It  may  be  desirable  to  rewind  the  TAPE 2  file  and  do  a 
COPYSBF  onto  the  OUTPUT  file  to  obtain  a  listing  of  the 
profile  data. 

Execution  of  the  OMEGA  11  program  requires  a  CM  of  60000g. 

The  files  are  setup  as  follows: 

OMEGAll ( INPUT , OUTPUT , TAPE5=INPUT , TAPE6=OUTPUT , TAPE7 , TAPE 2 ) 

where  TAPE7  is  the  reference  file  and  TAPE2  is  the  profile 
dataset  output  file . 

Data  for  aircraft  code  ACC  will  be  deleted  from  the  computer 
job  and  an  error  message  printed  when  one  or  more  of  the 
following  problems,  occur: 

(a)  No  reference  data  are  found  for  ACC  in  TAPE 7 . 

(b)  TAPE7  contains  data  for  more  than  the  maximum  (6)  number 
of  operation  power  codes  for  ACC. 

(c)  Error  in  reference  dataset  input  caused  by  missing  or 
extra  data  cards  (angle  ID  errors) . 

(d)  The  PSU  from  the  code  sheet  doesn’t  match  the  first  power 
setting  units  for  ACC  in  TAPE7 . 


(e)  The  requested  special  case  power  setting  (PSC  for  IFC=1) 
was  not  found  in  TAPE7 . 

(f)  One  or  more  requested  power  settings  (PSC's)  are  outside 
the  range  of  the  power  setting  data  available  in  TAPE7 . 

The  entire  computer  job  will  be  terminated  when  either  of  the 

following  occur: 

(a)  The  number  of  power  settings  requested  (NP)  is  greater 
than  the  maximum  number  permitted  (NPM=6) .  An  error 
message  will  be  printed. 

(b)  An  "END  OF  FILE"  is  read  from  this  input  file.  This  is 
the  normal  job  termination. 


APPENDIX  C 

OMEGA  10  SAMPLE  PROBLEM 


This  sample  problem  for  the  OMEGA  10  program  inputs  the  flight 
noise  reference  datasets  for  the  C-141  aircraft  from  the  NOISEFILE 
4  database  and  interpolates  profile  data  for  the  power  settings  re¬ 
quested  on  the  code  sheet.  The  following  items  are  included  in 
this  Appendix: 

(1)  The  completed  OMEGA  10  code  sheet. 

(2)  A  listing  of  the  code  sheet  and  reference  file  input  data 

(3)  The  tab  output. 

(4)  A  listing  of  the  flight  noise  profile  datasets  written 
on  file  TAPE3 . 


OMEGA  10  PROGRAM  COPE  SHEET 


JOB  CONTROL  CARD  (One  Per  Job) 


Cal.  1  £  C±  &  £  2  k  DATE;  eg  29  JUM  77 

11  Li  2  1  it  DATN;  Data  in  DAMOYR  form,  eg.  290677 
13  /  IPR  (0--  no  print] 

20  _  KEASU)  EPNL  (0  for  IPR-0;  1  for  IPR-1] 

22  _  MEAS (2)  SELT  [0  for  IPR-0;  1  for  IPR-1] 

24  _  MEAS (3)  SEL  [1  for  IPR-0;  1  for  IPR-1] 

26  IPU  [1  for  IPR-0;  0  for  IPR-1] 


OUTPUT  PARAMETERS  FOR  EACH  AIRCRAFT  {2  or  3  Cards): 


Card  »1 

Col.  1  Q  L  1  ACC 

4  _  2  i  ITEMP  [59*F] 

7  _£q_  IRHUM  [70%] 

11  €  PV  [w] 

13  /  CRI  [0] 

IS _ DELN  [0.0] 

20  _  X  NP 

22  £  £  * _ PSU  (left  justify) 

Card  *2  (Profile  Output  Power  Data) 


col.  1  _  i  i.  i  o  PSC  II  Col.  6  t  S  4  vx  Col.  9  •  £  OPCR  Col.  11  OPCC  [81] 


13  _  /  :70_  PSC  #2 

25 _ PSC  #3 

37 _ PSC  #4 

49 _ PSC  #5 

61  PSC  16 


18  iiO.VX 

30 _ VX 

42 _ VX 

54 _ VX 

66  VX 


21  g  £  OPCR 

33 _ OPCR 

45 _ OPCR 

57 _ OPCR 

69  OPCR 


23 _ OPCC  [82] 

35  _  _  OPCC  [83] 
47  _  _  OPCC  [84] 

59  _  OPCC  [85] 

71 _ OPCC  [86] 


Card  13  (Profile  Output  Power  Data  Conti.;  required  only  when  N?>6) 

Col.  1 _ PSC  17  Col.  6 _ VX  Col.  9 _ OPCR  Col.  11 

13 _ PSC  18  18 _ VX  21 _ OPCR  23 

25 _ PSC  19  30  VX  33 _ OPCR  35 

37 _ PSC  110  42  VX  45 _ OPCR  47 

<9 _ PSC  111  54 _ VX  57 _ OPCR  59 

61 _ PSC  112  66  VX  69 _ OPCR  71 

(Right  Justify  "PSC*  Data) 

TERMINATE  SETUP  DECK  WITH  AN  "END  OF  RECORD"  OR  "END  OF  JOB"  CARD 
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NOISE  LEVEL  IN  03 


EXTRAPOLATED  FROM  HE  AN  VALUES  FOR  LEVEL  FLIGHTS 
BAND  WHICH  DETERMINES  THE  13NE  CORRECTION  <C>. 
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APPENDIX  D 

OMEGA  11  SAMPLE  PROBLEM 

This  sample  problem  for  the  OMEGA  11  program  inputs  the  re¬ 
ference  file  ground  run-up  noise  normalized  data  for  the  T-38A  air¬ 
craft  from  the  NOISEFILE  4  database  and  interpolates  profile  data 
for  the  power  settings  requested  on  the  code  sheet.  The  following 
items  are  included  in  this  Appendix: 

(1)  The  completed  OMEGA  11  program  code  sheets. 

(2)  A  listing  of  the  code  sheet  and  reference  file  input  data. 

(3)  The  tab  output  for  this  sample  problem. 

(4)  A  listing  of  the  ground  run-up  noise  profile  datasets 
written  on  file  TAPE2. 
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APPENDIX  E 

CARD  FORMAT  FOR  THE  FLIGHT  NOISE  REFERENCE  DATASETS 

This  Appendix  contains  a  description  of  the  content  and  format 
of  the  flight  noise  reference  datasets  required  as  input  to  the 
OMEGA  10  program.  These  datasets  are  stored  in  NOISEFILE  4  in  CDC 
UPDATE  format.  They  are  read  from  file  TAPE7  by  the  OMEGA  10  pro- 


CARD  FORMAT  FOR  FLIGHT  NOISE  AVERAGE 
REFERENCE  DATASETS 


Card  Number  1  (COMDECK  card) 


Column 

Format 

Data  Description 

1-8 

A8 

* COMDECK 

9 

Blank 

10 

A1 

"N"  for  normalized  data 

11-13 

A3 

Aircraft  code  number  (eg.  031;  include  leading 
zeros) 

14-15 

A2 

Operation  power  code  (eg.  01;  include  leading 
zeros) 

16 

A1 

Operation  type  code  (eg.  1) 

17 

A1 

Profile  version  code  (eg.  A;  this  code  does  not 
apply  to  the  reference  datasets;  it  is  included 
to  be  consistent  with  the  profile  datasets.) 

18 

A1 

Revision  identifier 

0  for  original 

1  for  first  revision 

2  for  second  revision,  etc. 

19-80 

Blank 

Card  Number  2  (Comment  card) 

1-7 

A7 

"Comment" 

8 

Blank 

9-11 

A3 

Aircraft  code  number  (eg.  031) 

12-13 

A2 

Operation  power  code  (eg.  01) 

14 

Al 

Operation  type  code  (eg.  1) 

15 

Al 

Profile  version  code  (eg.  A) 

16 

Al 

Revision  identifier 

0  for  original 

1  for  first  revision,  etc. 

17 

Blank 

18-22 

A5 

"OMEGA” 

23 

Blank 

24-26 

F3 

Analysis  program  (eg.  6.6) 

27 

Blank 

28-36 

A9 

Date  of  OMEGA  6.6  run  (eg.  10  JUL  75) 

37 

Blank 

38-44 

A7 

Aircraft  name  (eg.  F-4) 

45 

Blank 

46-49 

14 

Reference  minimum  slant  range  (from  OMEGA  5) 

50 

Blank 

41-52 

A2 

it  pip  n 

Card  Number  2  (Comment  card)  -  Continued 


Column 

Format 

Data  Description 

53-54 

Blank 

55-57 

13 

Reference  airspeed  (from  OMEGA  5) 

58 

Blank 

59-61 

A3 

"  KTS  " 

62-63 

Blank 

64-66 

13 

Standard  day  temperature  (59 °F) 

67 

Blank 

68 

Al 

up  H 

69-70 

Blank 

71-73 

13 

Standard  day  relative  humidity  (70%) 

74 

Blank 

75-77 

A5 

"PCT  " 

Card  Number  3  (Comment  card) 

1-7 

A7 

"Comment" 

8 

Blank 

9-17 

Same  as  card  number  3 

18-32 

A15 

Engine  type  (eg.  Reciprocating) 

33 

Blank 

34-58 


A25 


Drag  Configuration  (eg.  Gear  Down,  20  Deg  Flaps) 
Card  Number  4  (Comment  card) 


1-7 

A7 

"Comment 

8 

Blank 

9-17 

Same  as  card  number  3 

18-37 

A20 

Power  Description 

38 

Blank 

39-43 

A5 

1st 

engine 

power 

setting 

value 

44 

Blank 

45-50 

A6 

1st 

engine 

power 

setting 

units 

51-52 

Blank 

53-57 

A5 

2nd 

engine 

power 

setting 

value 

58 

Blank 

59-64 

A6 

2nd 

engine 

power 

setting 

units 

65-66 

Blank 

67-71 

A5 

3rd 

engine 

power 

setting 

value 

72 

Blank 

73-78 

A6 

3rd 

engine 

power 

setting 

units 

Card  Number  5  (Data  card) 


Column 


1* 

2-3* 

4-6* 

7* 

8-9* 

10-15* 

16 

17-26 

27-46 

47-50 

51-55 

56-60 

61-65 


Format 


II 

A10 

2A10 

14 

15 
15 
15 


Data  Description 


"2"  (formerly  BBN-2  dataset) 

Program  version  number  (eg.  66) 

Aircraft  code 
Operation  type  code 
Operation  power  code 

Date  on  which  OMEGA  6  data  were  computed  (eg. 

171273  is  17  Dec  73) 

Card  sequence  number  (1) 

Aircraft  name 

Operation  power  description 
Number  of  records  for  this  power  setting 
S(0) — reference  minimum  slant  range  in  feet 
V(0) — reference  airspeed  in  knots 
Mean  angle  THETA  in  degrees  (nearest  tenth  with¬ 
out  decimal) 


Card  Number 

6  (Data 

card) 

** 

1-15* 

Same 

as  card  1  above 

16 

11 

Card 

sequence  number 

(2) 

17-20 

14 

Mean 

PNL  in  PNdB 

21-24 

14 

Mean 

PNLT  in  PNdB 

25-28 

14 

Mean 

AL  in  dBA 

29-32 

14 

Mean 

ALT  in  dBA 

33-36 

14 

Mean 

EPNL  in  EPNdB 

37-40 

14 

Mean 

SEL  in  dB 

41-44 

14 

Mean 

SELT  in  dB 

45-48 

14 

Mean 

C  in  dB 

49-80 

814 

Mean 

SPL  spectrum  in 

dB  re  .00002 

N/M' 

quency  band  numbers 

i  17  through 

24. 

Card  Number 

7  (Data 

Card) 

** 

1-15* 

Same 

as  card  1 

16 

11 

Card 

sequence  number 

(3) 

17-80 

1614 

Mean 

SPL  spectrum  in 

dB  re  .00002 

N/M' 

quency  band  numbers  25  through  40. 

NOTE:  The  above  data  cards  (cards  5,  6  and  7)  can  be  used  as  nor¬ 
malized  data  input  to  the  OMEGA  6  program. 

^Columns  1  to  i5  will  always  be  numeric  and  can  be  read  with  an 
integer  format. 

**Data  in  columns  16  through  80  are  punched  to  the  nearest  tenth 
with  the  decimal  omitted;  eg.  101.2  is  punched  as  1012. 


193 


APPENDIX  F 

CARD  FORMAT  FOR  THE  FLIGHT  NOISE  PROFILE  DATASETS 

This  Appendix  contains  a  description  of  the  content  and  format 
of  the  flight  noise  profile  datasets  written  on  file  TAPE3  by  the 
OMEGA  10  program.  This  is  the  format  required  by  the  NOISEMAP  pro- 


CARD  FORMAT  FOR  FLIGHT  NOISE  PROFILE  DATASETS 


r.j 


is 


I 

i; 


Data  Description 

1-  8 

A8 

♦COMDECK 

9 

Blank 

10 

A1 

Identifier  for  type  of  noise  descriptor 

E  for  EPNL 

S  for  SELT 

L  for  SEL 

11-13 

A3 

Aircraft  code  number  (eg.  031;  include 
leading  zeros) 

14-15 

A2 

Operation  power  code  (eg.  01;  include 
leading  zeros) 

16 

A 1 

Operation  type  code  (eg.  1) 

17 

A1 

Profile  version  code  (eg.  A  for  standard 
temperature  and  relativity  humidity) 

18 

Al 

Revision  identifier 

0  for  original 

1  for  first  revision 

2  for  second  revision,  etc. 

19-80 

Blank 

Card  Number  2 

(Data  card) 

1-  6 

A6 

Type  of  noise  descriptor  (eg.  SEL,  SEL' 
or  EPNL) 

7-  8 

Blank 

9-11 

A3 

Aircraft  code  number  (eg.  031) 

12-13 

A2 

Operation  power  code  (eg.  01) 

14 

Al 

Operation  type  code  (eg.  1) 

22 

11 

Air  to  Ground  Identifier  =  2 

23-30 

F8 

Noise  level  at  200  ft.  (air  to  ground) 

31-38 

F8 

Noise  level  at  250  ft.  (air  to  ground) 

39-46 

F8 

Noise  level  at  315  ft.  (air  to  ground) 

47-54 

F8 

Noise  level  at  400  ft.  (air  to  ground) 

55-62 

F8 

Noise  level  at  500  ft.  (air  to  ground) 

63-70 

F8 

Noise  level  at  630  ft.  (air  to  ground) 

71-77 

A7 

Aircraft  name  (eg.  F-4) 

78-79 

Blank 

80 

11 

Data  card  sequence  number  =  1 
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CARD  FORMAT  FOR  FLIGHT  NOISE  PROFILE  DATASETS 


Card  Number  3  (Comment  card) 


Column  Format _ Data  Description 


1-  7 

A7 

"Comment" 

8 

Blank 

9-11 

A3 

Aircraft  code  number  (eg.  031) 

12-13 

A2 

Operation  power  code  (eg.  01) 

14 

A1 

Operation  type  code  (eg.  1) 

15 

A1 

Profile  version  code  (eg.  A) 

16 

A1 

Revision  identifier 

0  for  original 

1  for  first  revision,  etc. 

17 

Blank 

18-22 

A5 

"OMEGA" 

23 

Blank 

24-26 

F3 

Analysis  program  (eg.  6.  6) 

27 

Blank 

28-36 

A9 

Date  of  OMEGA  6.  6  run  (eg.  10  JUL  75) 

37 

Blank 

38-44 

A7 

Aircraft  name  (eg.  F-4) 

45 

Blank 

46-49 

14 

Reference  distance  ** 

50 

Blank 

51-52 

A2 

"FT"** 

53-54 

Blank 

55-57 

13 

Reference  speed 

58 

Blank 

59-61 

A3 

"KTS" 

62-63 

Blank 

64-66 

13 

Temperature  (#F) 

67 

Blank 

68 

A1 

irpn 

69-70 

Blank 

71-73 

13 

Relative  Humidity  (%) 

74 

Blank 

75-77 

A3 

"PCT" 

**  Not  included  in  profile  datasets  written  by  the  OMEGA  10  program. 


CARD  FORMAT  FOR  FLIGHT  NOISE  PROFILE  DATASETS 


C  olumn 

Format 

1-  7 

A7 

8 

Blank 

9-17 

18-32 

A15 

33 

Blank 

34-58 

A25 

Data  Description 


"Comment" 

Same  as  card  number  3 
Engine  type  (eg.  Reciprocating) 

Drag  Configuration  (eg.  Gear  Down, 
20  Deg  Flaps)  ** 


Card  Number  5  (Comment  card) 


1-  7 

A7 

"Comment" 

8 

Blank 

9-17 

Same  as  card  number  3 

18-37 

A  20 

Power  Description 

38 

Blank 

39.-43 

A5 

1st  engine  power  setting  value 

44 

Blank 

45-50 

A6 

1st  engine  power  setting  units 

51-52 

Blank 

53-57 

A5 

2nd  engine  power  netting  value** 

58 

Blank 

59-64 

A6 

2nd  engine  power  setting  units  ** 

65-66 

Blank 

67-71 

A5 

3rd  engine  power  setting  value  ** 

72 

Blank 

73-78 

A6 

3rd  engine  power  setting  units  ** 

Card  Number  6  (Data  card] 


1-  6 

Blank 

7-14 

F8 

15-22 

F8 

23-30 

F8 

31-38 

F8 

39-46 

F8 

47-54 

F8 

55-62 

F8 

63-70 

F  8 

71-79 

80 

11 

Noise  level  at  800  ft.  (air  to  ground) 
Noise  level  at  1000  ft.  (air  to  ground) 
Noise  level  at  1250  ft.  (air  to  ground) 
Noise  level  at  1600  ft.  (air  to  ground) 
Noise  level  at  2000  ft.  (air  to  ground) 
Noise  level  at  2500  ft.  (air  to  ground) 
Noise  level  at  3150  ft.  (air  to  ground) 
Noise  level  at  4000  ft.  (air  to  ground) 
Same  as  card  number  2 
Data  card  sequence  number  =  2 


**Not  included  in  profile  datasets  written  by  the  OMEGA  10  program;  see  note 
after  Card  Number  10. 
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CARD  FORMAT  FOR  FLIGHT  NOISE  PROFILE  DATASETS 


Card  Number  7  (Data  card) 
Column  Format 

Data  Description 

1-  6 

Blank 

7-14 

F8 

Noise  level  at  5000  ft.  (air  to  ground) 

15-22 

F8 

Noise  level  at  6300  ft.  (air  to  ground) 

23-30 

F8 

Noise  level  at  8000  ft.  (air  to  ground) 

31-38 

F8 

Noise  level  at  10000  ft.  (air  to  ground) 

39-46 

F8 

Noise  level  at  12500  ft.  (air  to  ground) 

47-54 

F8 

Noise  level  at  16000  ft.  (air  to  ground) 

55-62 

F8 

Noise  level  at  20000  ft.  (air  to  ground) 

63-70 

F8 

Noise  level  at  25000  ft.  (air  to  ground) 

71-79 

Same  as  card  number  2 

80 

11 

Data  card  sequence  number  =  3 

Card  Number  8  (Data  card) 

1-  8 

Blank 

9-14 

Same  as  card  number  2 

22 

11 

Ground  to  ground  identifier  =  1 

23-30 

F8 

Noise  level  at  200  ft.  (ground  to  ground) 

31-38 

F8 

Noise  level  at  250  ft.  (ground  to  ground) 

39-46 

F8 

Noise  level  at  315  ft.  (ground  to  ground) 

47-54 

F8 

Noise  level  at  400  ft.  (ground  to  ground) 

55-62 

F8 

Noise  level  at  500  ft.  (ground  to  ground) 

63-70 

F8 

Noise  level  at  630  ft.  (ground  to  ground) 

71-79 

Same  as  card  number  2 

80 

11 

Data  card  sequence  number  =  4 

Card  Nvumber  9  (Data  card) 

1-  6 
7-14 
15-22 


23-30 
31-38 
39-46 
47-54 
55-C2 
L  -70 

?l-7' 

80 


Blank 

F8 

F8 

F8 

F8 

F8 

F8 

F8 

F8 


Noise  level  at  800  ft.  (ground  to  ground) 


Noise  level  at  1000  ft.  (ground  to 
Noise  level  at  1250  ft.  (ground  to 
Noise  level  at  1600  ft.  (ground  to 
Noise  level  at  2000  ft.  (ground  to 
Noise  level  at  2500  ft.  (ground  to 
Noise  level  at  3150  ft.  (ground  to 
Noise  level  at  4000  ft.  (ground  to 
Same  as  card  number  2 
Data  card  sequence  number  =  5 


ground) 

ground) 

ground) 

ground) 

ground) 

ground) 

ground) 


II 


CARD  FORMAT  FOR  FLIGHT  NOISE  PROFILE  DATASETS 


Card  Number  10  (Data  card) 

Column _ Format _ Data  Description 


1-  6 

Blank 

7-14 

F8 

Noise  level  at  5000  ft.  (ground  to  ground) 

15-22 

F8 

Noise  level  at  6300  ft.  (ground  to  ground) 

23-30 

F8 

Noise  level  at  8000  ft.  (ground  to  ground) 

31-38 

F8 

Noise  level  at  10000  ft.  (ground  to  ground) 

39-46 

F8 

Noise  level  at  12500  ft.  (ground  to  ground) 

47-54 

F8 

Noise  level  at  16000  ft.  (ground  to  ground) 

55-62 

F8 

Noise  level  at  20000  ft.  (ground  to  ground) 

63-70 

F8 

Noise  level  at  25000  ft.  (ground  to  ground) 

71-79 

80 

Blank 

Same  as  card  number  2 

NOTE:  Flight  noise  profile  datasets  are  written  by  both  the 

OMEGA  6  and  OMEGA  10  programs.  There  are  minor  differ¬ 
ences  in  the  content  of  the  datasets  written  by  the  two 
programs  (see  footnotes  on  pages  F-3  and  F-4) .  In  addi¬ 
tion  to  the  differences  (deletions)  noted  on  the  previous 
pages,  the  OMEGA  10  version  of  the  profile  datasets  also 
contains  the  following  data: 

(1)  On  card  number  4  (second  comment  card) : 

(a)  Columns  35  to  43  contain  the  name  of  the  refer¬ 
ence  file  dataset  used  as  a  reference  in  the 
A "6  interpolation  or  extrapolation. 

(b)  Columns  45  to  53  and  55  to  63  contain  the  names 
of  the  reference  file  datasets  used  to  determine 
the  A "6  slope  line.  If  a  second  slope  line  is 
required,  the  additional  reference  file  dataset 
name  is  in  columns  65  to  73. 

(2)  A  fourth  comment  card  is  added -after  card  number  5 
when  the  extrapolation  limit  was  exceeded.  This  card 
contains  the  usual  ID  information  plus  the  following: 

"Power  Setting  Extrapolation  Limited  by  AMRL/BBE , 
WPAFB . " 


APPENDIX  G 

CARD  FORMAT  FOR  THE  GROUND  RUNUP  NOISE  REFERENCE  DATASETS 

This  Appendix  contains  a  description  of  the  content  and  format 
of  the  ground  runup  noise  reference  datasets  required  as  input  to 
the  OMEGA  11  program.  These  datasets  are  stored  in  NOISEFILE  4  in 
CDC  UPDATE  format.  They  are  read  from  file  TAPE7  by  the  OMEGA  11 
program. 


CARD  FORMAT  FOR  GROUND  RUNUP  NOISE  REFERENCE  DATASETS 


This  reference  dataset  contains  sound  pressure  level  data  nor' 
malized  to  250  feet  and  standard  day  conditions.  The  data  cards 
(cards  5  to  42)  can  be  used  as  OMEGA  8  input  to  the  OMEGA  8  program 

Card  Number  1  (COMDECK  card) 


Column 

Format 

Data  Description 

1-8 

A8 

*COMDECK 

9 

Blank 

10 

Al 

"N"  for  normalized  data 

11-13 

A3 

Noise  source  code  (eg.  061;  include  leading  zero) 

14-15 

A2 

Operation  code  (eg.  30;  include  leading  zero) 

16 

Al 

Profile  version  code  (eg.  A;  this  code  does  not 
apply  to  the  reference  datasets;  it  is  included 
to  be  consistent  with  the  profile  datasets) 

17 

Al 

Revision  identifier 

0  for  original 

1  for  first  revision 

2  for  second  revision,  etc. 

18-80 

Blank 

Card  Number  2  (Comment  card) 

1-7 

A7 

"Comment" 

8 

Blank 

9-11 

A3 

Noise  source  code  (eg.  061) 

12-13 

A2 

Operation  power  code  (eg.  30) 

14 

Al 

Profile  version  code  (eg.  A) 

15 

Al 

Revision  identifier 

0  for  original 

1  for  first  revision 

2  for  second  revision,  etc. 

16 

Blank 

17-21 

A5 

"OMEGA" 

22 

Blank 

23-25 

F3 

Analysis  program  (eg.  8.2) 

26 

Blank 

27  -35 

A9 

Date  of  OMEGA  8.2  run  (eg.  10  JUL  75) 

36 

Blank 

37-39 

13 

Standard  day  temperature  (59°F) 

40 

Blank 

41 

Al 

«pn 

42 

Blank 

43-45 

13 

Standard  day  relative  humidity  (70%) 

46 

Blank 

47-49 

A3 

"PCT" 

Card  Number  2  (Comment  card)  -  Continued 


Column 

Format 

Data  Description 

50-51 

Blank 

52-56 

F5.2 

Standard  day  barometric  pressure 

(29.92  in  Hg) 

57 

Blank 

58-62 

A5 

"IN  HG" 

63-65 

Blank 

66-75 

A10 

Test  number  (eg.  74-004-010) 

76 

Blank 

77-78 

A2 

Run  number  (eg.  02) 

Card  Number  3  (Comment  card) 

1-7 

A7 

"Comment" 

8-16 

Same  as  comment  card  number  1 

17-41 

A25 

Noise  source  description,  part 

1 

(eg.  aircraft 

name) 

42 

Blank 

43-67 

A25 

Noise  source  description,  part 

2 

(eg.  propulsion 

system  type) 

Card  Number  4  (Comment  card) 

1-7 

A7 

"Comment" 

8-16 

Same  as  comment  card  number  1 

17 

Blank 

18-37 

A20 

Power  Description 

38-39 

Blank 

40-44 

A5 

1st  source  power  setting  value 

45 

Blank 

46-51 

A6 

1st  source  power  setting  units 

52-53 

Blank 

54-58 

A5 

2nd  source  power  setting  value 

59 

Blank 

60-65 

A6 

2nd  source  power  setting  units 

66-67 

Blank 

68-72 

A5 

3rd  source  power  setting  value 

73 

Blank 

74-79 

A6 

3rd  source  power  setting  units 

Card  Number  5  (Data  card) * 


Column 


Format 


Data  Description 


1-2 

3-10 

11-12 

15 

16-20 

21-24 

25-28 

29-32 

33-36 

37-40 

41-44 

45-48 

49-52 

53-56 

57-60 

61-64 

65-68 

69-72 

73-76 

77-80 


Dataset  number:  08 

Test  number  (eg.  74-001-002  is  74001002) . 

Run  number  (eg.  01) 

Card  sequence  number  within  each  angle  (1) 
Angle  in  degrees  (0  to  18Q) 

Band  17  \ 

Band  18 
Band  19 
Band  20 
Band  21 

Band  22  Bands  17  to  31  of  the  SPL  spectrum 
Band  23  normalized  to  reference  conditions 
Band  24  in  dB  re  .00002  N/M2.** 

Band  25 
Band  26 
Band  27 
Band  28 
Band  29 
Band  30 
Band  31  ' 


Card  Number  6  (Data  card) * 


1-12 

15 

16-20 

21-24 

25-28 

29-32 

33-36 

37-40 

41-44 

45-48 

49-52 

53-56 


Same  as  card  number  5  above 
Card  sequence  number  within  each  angle  (2) 
Angle  in  degrees  (0  to  180) 

Band  32  > 

Band  33 

Band  34  Bands  32  to  40  of  the  SPL  spectrum 
Band  35  normalized  to  reference  conditions 
Band  36  in  dB  re  .00002  N/M2.** 

Band  37 
Band  38 
Band  39 
Band  40  / 


*These  two  cards  are  repeated  for  each  SPL  spectrum.  Each  dataset 
will  contain  a  19  spectra  (38  data  cards)  for  a  total  of  42  cards. 

**Data  are  punched  to  the  nearest  tenth  with  the  decimal  omitted; 
e.g.,  101.2  is  punched  as  1012.  Data  could  be  read  using  a  F4.1 
format. 
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APPENDIX  H 

CARD  FORMAT  FOR  THE  GROUND  RUNUP  NOISE  PROFILE  DATASETS 

This  Appendix  contains  a  description  of  the  content  and  format 
of  the  ground  runup  noise  profile  datasets  written  on  file  TAPE2  by 
the  OMEGA  11  program.  This  is  the  format  required  by  the  NOISEMAP 
program. 


CARD  FORMAT  FOR  GROUND  RUNUP  NOISE  PROFILE  DATASETS 


COMDECK  Card 

Column _ Format _ Data  Description 


1-  8 

A8 

♦COMDECK 

9 

Blank 

10 

A 1 

Identifier  for  type  of  noise 

A  for  AL 

T  for  ALT 

P  for  PNLT 

11-13 

A3 

Noise  source  code  (eg.  06l;  include 
leading  zero) 

14-15 

A2 

Operation  code  (eg.  30;  include  lead¬ 
ing  zero) 

16 

A 1 

Profile  version  code  (eg.  A  for  standard 
temperature  and  relative  humidity) 

17 

A 1 

Revision  identifier 

0  for  original 

1  for  first  revision 

2  for  second  revision,  etc. 

18-80 

Blank 

Data  Card  Number  1 

(Angle  =  0°) 

1-6 

A6 

Type  of  noise  descriptor  (eg.  AL,  ALT 
or  PNLT) 

7-  9 

Blank 

10-12 

A3 

Noise  source  code  (eg.  061) 

13-14 

A2 

Operation  code  (eg.  30) 

15-19 

Blank 

20-22 

13 

Angle  (=  0) 

23-30 

F8 

Noise  value  for  200  ft. 

31-38 

F8 

Noise  value  for  250  ft. 

39-46 

F8 

Noise  value  for  315  ft. 

47-54 

F8 

Noise  value  for  400  ft. 

55-62 

F8 

Noise  value  for  500  ft. 

63-70 

F8 

Noise  value  for  630  ft. 

71-78 

Blank 

79-80 

12 

Data  card  sequence  number  =  1 
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"Comment" 


1-  7 

A7 

"Comment” 

8 

Blank 

- 

9-11 

A3 

Noise  source  code  (eg.  061) 

12-13 

A2 

Operation  power  code  (eg.  30) 

14 

A1 

Profile  version  code  (eg.  A) 

15 

A1 

Revision  identifier 

0  for  original 

1  for  first  revision 

2  for  second  revision,  etc. 

16 

Blank 

17-21 

A5 

"OMEGA" 

22 

Blank 

23-25 

F3 

Analysis  program  (eg.  8.2) 

26 

Blank 

27-35 

A9 

Date  of  OMEGA  8.  2  run  (eg.  10  TUL 

36 

Blank 

37-39 

13 

Temperature  (*F) 

40 

Blank 

41 

Al 

i»pi» 

42 

Blank 

43-45 

13 

Relative  Humidity  (%) 

46 

Blank 

47-49 

A3 

"PCT" 

50-51 

Blank 

52-56 

F5.2 

Barometric  pressure  (in  Hg) 

57 

Blank 

58-62 

A5 

"IN  HG" 

63-65 

Blank 

66-75 

A10 

Test  number  (eg.  74-004-010) 

76 

Blank 

77-78 

A2 

Run  number  (eg.  02) 

Comment  Card  Number  2 

1-  7 

A7 

"Comment" 

8-16 

Same  as  comment  card  number  1 

17-41 

A25 

Noise  source  description,  part  1 
(eg.  aircraft  name) 

42 

Blank 

43-67 

A25 

Noise  source  description,  part  2 
(eg.  propulsion  system  type) 

68-80 

A13 

Name  of  reference  datasets  used  to 

interpolate  this  profile  data  (OMEGA 
11  only). 


17; 


Format 

Data  Description 

1-  7 

A7 

"Comment" 

8-16 

Same  as  comment  card  number  1 

17 

Blank 

18-37 

A  20 

Power  Description 

38-39 

Blank 

40-44 

A5 

1st  source  power  setting  value 

45 

Blank 

46-51 

A6 

1st  source  power  setting  units 

52-53 

Blank 

54-58 

A5 

2nd  source  power  setting  value 

59 

Blank 

60-65 

A6 

2nd  source  power  setting  units 

66-67 

Blank 

68-72 

A5 

3rd  source  power  setting  value 

73 

Blank 

74-79 

A6 

3rd  source  power  setting  units 

Data  Card  Number  2  (Angle  =  0*1 


1-  6 

Blank 

7-14 

F8 

Noise  value  at  800  ft. 

15-22 

F8 

Noi9e  value  at  1000  ft. 

23-30 

F8 

Noise  value  at  1250  ft. 

31-38 

F8 

Noise  value  at  1600  ft. 

39-46 

F8 

Noise  value  at  2000  ft. 

47-54 

F8 

Noise  value  at  2500  ft. 

55-62 

F8 

Noise  value  at  3150  ft. 

63-70 

F8 

Noise  value  at  4000  ft. 

71-78 

Blank 

79-80 

12 

Data  card  sequence  number  =  2 

Data  Card  Number  3  (Angle  =  0#] 


1-  6 

Blank 

7-14 

F8 

Noise  value  at  5000  ft. 

15-22 

F8 

Noise  value  at  6300  ft. 

23-30 

F8 

Noise  value  at  8000  ft. 

31-38 

F8 

Noise  value  at  10000  ft. 

39-46 

F8 

Noise  value  at  12500  ft. 

47-54 

F8 

Noise  value  at  16000  ft. 

55-62 

F8 

Noise  value  at  20000  ft. 

63-70 

F8 

Noise  value  at  25000  ft. 

71-78 

Blank 

79-80 

12 

Data  card  sequence  number  =  3 

CARD  FORMAT  FOR  GROUND  RUNUP  NOISE  PR  OF  IDE  DATASETS 


Data  Card  Number  1  (For  a  maximum  of  8  angles  between  10*  and  170° 


Column  _  Format  Data  Description 


7-14 

15-22 

23-78 

79-80 


Same  as  data  card  number  1  (angle  =0“) 
Angle  in  degrees 

Same  as  data  card  number  1  (angle  =  0°) 
Data  card  sequence  number 


Data  Card  Number  2  (For  a  maximum  of  8  angles  between  10*  and  170° 


7-78 

79-80 


Same  as  data  card  number  2  (angle 
Data  card  sequence  number 


Data  Card  Number  3  (For  a  maximum  of  8  angles  between  10*  and  170* 


-6  B 


-  6 
7-78 
79-80 


Same  as  data  card  number  3  (angle  s  0*) 
Data  card  sequence  number 


Data  Card  Number  1  (Angle  =  180* 


1-  6 

Blank 

7-14 

Same  as  data  card  number  1  (angle  =  0*) 

15-22 

18 

Angle  in  degrees  (=  180*) 

23-78 

Same  as  data  card  number  1  (angle  =  0®) 

79-80 

12 

Data  card  sequence  number 

Data  Card  Number  2  (Angle  =  180*1 

1-6  Blank 

7-78 

79-80  12 

Data  Card  Number  3  (Angi?  =  180*1 

1-6  Blank 

7-78 
9 


Same  as  data  card  number  2  (angle  *  0*) 
Data  card  sequence  number 


Same  as  data  card  number  3  (angle  =  0°) 


APPENDIX  I 

OMEGA  10  PROGRAM  LISTING 


The  listing  for  the  OMEGA  10  program  is  provided  in  the  follow' 
ing  pages.  Included  at  the  end  of  the  program  listing  is  a  Super 
Index  which  lists  all  variable  names  defined  in  this  program  as 
well  as  all  routines  in  which  they  are  used. 
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C  I  c>  o  t  > 


PROGRAM  JM£GA10( INPUT, OUTPUT  ,TAPE5=  INPUT,  T APEfe*OUTPUT ,  T APE7,  TA»£3) 
JECK  MAIN  OHE5A10 


This  OMEGA  10  SUMMARY  PROGRAM  MAS  WRITTEN  BY  THE  UnIVEnsITY  of  DAYTON 
RESEARCH  INSTITUTE  UNDER  CONTRACT  F33615-75-C-&040  WITH  THE  6570 
AEROSPACE  MEDICAL  RESEARCH  LABORATORY  (ANRL/6BE)  AT  WRIGHT -PATTERSON 
1ik  FORCE  6ASE,  uHIO  *5433. 


OMEGA  10  PROGRAM  VERSION  3  (25  SEPT  1981) 


THE  FOLLOWING  SUBROUTINES  ARE  USEO  9Y  THIS  PrOGKAMI 


OK1-- 
0K2  — 
OK3  — 

UK*  — 
JK5-- 
OKfc  — 
JK7-- 
OKo — 


— ALPH 
— A7KN 

—  ICV 
—HEAD 

—  IPA 
--OUT  G 
— CuIST 
— CPNL 


DK09  — 
OKIO— 
OKU  — 
JK12  — 
OK13— 
OK14— 
DK15  — 
OK16  — 
0K17  — 
UK18  — 


-FNOY 

-CPTC 

-CAL 

-OUTH 

-OUTJ 

-PPFUAT 

-TITPG 

-SETUPDb 

-OELT  A6 

-SUMRY 


IF  This  PROGRAM  is  USED  AS  A  PRE-PROCESSOR  WITHOUT  PRINTOUT  (EXCEPT 
ERROR  MESSAGES)  ON  THE  •OUTPUT*  FIlE  (TAPEo) ,  THE  /OUTC/  LABELED 
COMMON  ANO  THE  I ORO (28)  OATA  STATEMENT  MAY  BE  REMOVED  FROM  THE  MAIN 
JELK  ANu  THE  FOLLOWING  SUBROUTINES  MAY  BE  REMOVED  FROM  THE  PROGRAM! 
HEAD,  IPA,  OUTG,  OJTh,  OUTJ,  TITPG,  ANu  SUMRY .  ALL  EXCEPT  *HEAO* 
ARE  CAlLEO  FkOM  THE  'MAIN*  ROUTINE;  *  HEAD  *  IS  CALLED  FROM 
SUBROUTINE  *OUTH*. 


The  FOLLOWING  ARRAYS  ARE  USEO  IN  THIS  PROGRAM! 

AT NR  -—  ATMOSPHERIC  ABSORPTION  COEFFICIENTS  FOR  STANOARD 
TEMPERATURE  (59  F)  ANO  HUMIDITY  (TO  Z) . 

ATNC  —  ATMOSPHERIC  ABSORPTION  COEFFICIENTS  FOR  PROFILE 

OUTPUT  TEMPERATURE  ANO  HUMIDITY  (ITEHP  ANU  IRHUM > • 

SX  -  DISTANCE  OATA  FOR  22  OISCRETE  DISTANCES  IN  FEET. 

OPC  -—  OPERATION  POWER  CODE  FOR  EACH  INPUT  POWER  SETTING  (REF). 

OPCC  -—  OPERATION  POWER  CODE  FOP  EACH  OUTPUT  POWER  SETTING. 

OPC0  —  OEFAUlT  OPERATION  POWER  COOES. 

OrCR  —  OPERATION  POWER  CODE  FOR  THE  REFERENCE  CmTA  FROM  WHICH  ThE 
OPCC  uATA  ARE  LOM9JTEJ  ANO  ThE  OPERATION  DESCRIPTION  TAKEN. 


030100 
000120 
0001*0 
000160 
QQ01S0 
000200 
0x3220 
3  002*3 
0  002o0 
000280 
JU0300 
000320 
0003*0 
0  033o0 
000380 
000*00 
000420 
3004*0 
0  0  0*o  0 
000*80 
0005x0 
000520 
9035*0 
300560 
0  005  o  0 
0006  j 0 
0  03c  20 
0006*0 
000660 
0  OxboO 
000700 
003720 
0007*0 
000760 
000780 
3  COB  0  0 
000820 
0008*0 
3  QQ60Q 

0x0680 
0009JO 
000920 
0009*0 
000960 
000980 
Q01000 
001020 
001040 
001060 
001060 
001100 
001120 
0011*0 
001 loO 
301190 
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SPLX  - 
EPNLX- 
SELTX- 

StuX  - 

pnlTx- 

PNuX  - 
ALTX  - 
At  X  - 
Pr.UA  - 


A1NCRAFT  W£luCITY  FOR  EACH  OUTPUT  POME*  SETTING  ( KNOTS) .  301200 

—  REFERENCE  AKCRAFT  VELOCITY  FOR  EACH  POWER  SETTING  (KNOTS)  001220 

•—  REFcivcNCE  MINIMUM  SLANT  RANGE  FOR  EACH  POWER  SETTING  (FEET )  3  012*0 
-  CRAG  CONFIGURATION  301260 

—  tNGINE  TYPE  0012O0 

input  power  setting  for  each  opc  from  the  reference  file.  001300 

- INPUT  POWER  SETTING  "OR  EACH  OPC  (ARRAY— FLOATING  POINT).  001320 

—  OUTPUT  POWEr  SETTING  FOR  EACH  OPCC.  001340 

OUTPUT  POWER  SETTING  FOR  EACH  OPCC  (ARRA  Y— FlOAT I NG  POINT)  .  0  01360 

—  POWER  SETTING  OESCrIPTICN  FOR  INPJT  OATA.  001360 

POWER  SETTING  u£SCRI3TION  FOR  OUTPOT  OATA.  001400 

NUMBER  OF  RUNS  (MEASURE  LOCATIONS)  USED  TO  COMPUTE  THE  001420 

MEAN  REFERENCE  OATA  IN  THE  OMEGA  6  PROGRAM.  001*43 

—  NORMALIZED  REFERENCE  OATA  FOR  EACH  POWER  SETTING  (SEE  0014o0 

SUBROUTINE  'CQISTM.  001460 

—  PLOT  ARRAY  OEFINEO  IN  SUBROUTINE  • I  PA •  AN O  USED  IN  001500 

SUBROUTINES  'OUTG*  ANO  *OUTJ'.  001S20 

—  ISC  IS  OEFINEO  ANO  USED  IN  SUBROUTINES  *OUTG*  AND  'OUTJ*.  0016*0 

—  DEFINES  ORDINATE  10  FOR  TAB  PLOTS -  DEFINED  IN  SU3ROUTINE0 01»6 0 

•IPa*  A no  USEO  In  SUBROUTINE  *OUTj».  001560 

—  INTEGER  FORM  OF  THE  NEAR  SPL  USED  TO  PLOT  SPL  OATA  In  001600 

SUBROUTINE  *OUTG* .  001620 

—  SPL  SPECTRA  FOR  THE  PROFILE  DISTANCES.  001640 

<---  EPNl  FOR  PROFILE  DISTANCES  AT  OUTPUT  P.S.  ANJ  AIR  SPEED.  001660 

(•••  SELT  FOR  PROFILE  DISTANCES  AT  OUTPUT  P.S.  ANJ  AIR  S°EEO.  001660 

-  SEL  FOR  PROFILE  DISTANCES  AT  OUTPUT  P.S.  AND  AIR  SPEED.  001700 

»—  F.NlT  FO*  PROFILE  3I3TANCES  at  OUTPUT  P.a.  ANJ  AIRSPEEO.  001720 

-  PNL  FOR  PROFILE  DISTANCES  A1  OUTPUT  P.S.  AND  AIRSPEED.  0017*0 

—  Alt  FOR  PROFILE  DISTANCES  at  OUTPUT  P.S.  ANJ  AIRSPEEO.  0  0176  0 

—  AL  For  PROFILE  DISTANCES  at  OUTPUT  P.S.  AND  AIRSPEED.  Q0l7o0 

—  AIR-TO-GROUNO  EPN.,  SELT  - -  AL  PROFIlE  DATA  001930 

COMPUTED  FROM  nEFERENCE  OATA  AND  AOUUSTEO  TO  THE  PROGRAM  00' 820 

REFERENCE  AIRSPEED  (RV).  00.6*0 

-  GROUNO- TO-GROUND  EPN.,  SELT  •••>  AL  PROFILE  OATA  ODlBoO 

COMPUTED  F^OM  REFERENCE  OATA  AND  ADJUSTED  TO  THE  PROGRAM  801680 
REFERENCE  AIRSPEEO  (RV).  001900 

—  —  EPNL,  SELT  — >  A.  OATA  FOR  AIR-TO-GROUND  AND  GR3UN0-T0-  801920 

GROUND  FOR  ONE  OUTPUT  POWER  SETTING  —  COMPUTED  EY  0019*0 

SUBROUTINE  'OELTA6*  «  0  019o  0 

—  OPERATION  POWER  CODE  ARRAY  DEFINED  IN  SUB. 'SETUPDb *.  061560 

-  COMPUTE  OUTPUT  EPN.,  SE.T,  AND  SEL  MEASURE  OATA  FOR  MEAS> 0 « 8 020 0 0 


WHEmE  MEAS(l)  —  EPNL  002020 

MEAS  ( 2) - SELT  002040 

MEAS  ( 3)  —  SE.  002060 

CUMO  -—  PART  OF  THE  •COMOECK*  NAME  USED  IN  THE  SUMMARY  >AGE  002090 

CUTUi;  CONTAINS  INPUT  OPC,  OTC,  PV,  ANO  CRI.  .02100 

lFlG - EXTRmPOLATION  LIMIT  sLAG  (SEE  SUBROUTINE  'OELTAbM.  002120 

LFLG«1  —  LIMIT  WAS  EXCEEDED  FOR  I  HIS  POWER  SETTING.  0021*0 

LFL6«Q  —  OATA  ARE  *0K‘  FOR  THIS  POWER  SETTING.  302160 

LFlG»-1  —  ALL  OATA  ARE  OMITTED  FOR  THIS  POWER  SETTING.  002190 
IKEF  —  SEE  SUBROUTINE  *OEL  TA6*.  002200 

302220 

Q022S0 

The  FOLLUMING  ARE  a  PARTIA.  list  OF  The  NUN-ulMENSlONEU  VARIABLES  002290 


uoooooouocuu  ooonii(ji)uuo()(jm)uouoiK)Oi  i)OCi()m)iJiuM)i;()owwuuum)() 


Ujtu  iN  IhlS  PROGRAM!  Q 

.oNL  —  LOWEST  FREQUENCY  BA  NO  NUMBER  INDEX - IBnL»1  CD*.RE  i  PONDS  TO  3 

BAND  NUMBER  i7  (IBnl  MUaT  BE  1  IN  THIS  PROGRAM) .  3 

I Bnh  —  HIGHEST  FREUDENCY  3 Amu  NUMBER  INJEX  — IBHhs^I  CurivESPONOS  TOO 
BAND  NUMBER  VrO  <  1 3NH  MUST  BE  24  IN  THIS  PROGRAM).  Q 

i  VER  — -  PROGRAM  VERSION  NUMBER  (ONE  DIGIT  INTEGER)  0 

IPROP-—  PROPAGATION  PRAMETER5  1— AIR  TO  GROUND!  2—  GROJND  TO  SROJNDO 


DATE  -  CURRENT  OATE  IN  THE  rORM l  15  DEC  73  0 

OATEN - CURRENT  uATc  IN  HE  1  ORMl  151273  0 

OTC  —  UPERmTION  TYPE  CODE  0 

ITEHP-—  OUTPUT  (PROFILE  OAT  A)  SURFACE  TEMPERATURE  (F)  0 

IRHUM - OUTPUT  (PROFILE  OAT  A)  RELATIVE  HUMIDITY  (PERCENT)  0 

ACC  —  AIRCRAFT  CODE  READ  FROM  SETUP  CARD  0 

MM  —  MAXIhUH  NUMBER  oF  INPUT  POWER  SETTINGS  PER  AIRCRAFT  (b)  0 

NPm  —  MAXIMUM  NUMBER  OF  OUTPUT  POWER  SETTINGS  PER  AIRCRAFT  (12)  3 

N  —  NUMBER  JF  INPUT  POWER  SETTINGS  READ  FROM  THE  REFERENCE  FILED 

NP  -  NUMoER  OF  OUTPUT  POWER  SETTINGS  FOR  WHICH  PROFILE  DATA  ARE  3 

REQUEST  ED  FOR  THIS  AIRCRAFT.  0 

RV  PROGRAM  REFERENCE  AIRSPEED  (250. Q  KNOTS).  0 

MGPC  NUMBER  JF  OPERATION  POWER  CODES  IN  ARRAY  uPP( SUB . 'SET JPDo ') 0 

OOPC  —  OPERATION  POWER  CODE  READ  FROM  REFERENCE  OATASET  CARD.  0 

AC  —  AIRCRAFT  NAME  READ  FROM  NORMALIZED  OATASET  CARO.  0 

10R0  —  DISTANCE  OR  FREQUENCY  UA T A  USED  BY  SUBROUTINES  «OUTG',  0 

•OUTh*  AMO  *u  JT  J  *  FOR  PRINTOUT  ONLY.  0 

Pv  —  PROFILE  VERSION  C00E  0 

C.U  —  CuMOECK  REVISION  IDENTIFIER  0 

IPTC  BANo  NUMBER  FROM  WHICH  TONE  CORRECTION  HAS  COMMUTED  3 

FOh  REFERENCE  uISTANCE  SPECTRUM  ( PROFIwE  D«TA>  .  0 

IPR  PROGRAM  CODE  SHEET  PRINT  CONTROL  FLAG.  0 

1PR=0  —  NO  PRINTOUT  ON  OUTPUT  FILE  (TAPE6).  0 

IPRal  —  TAB  uATA  PRINTED  ON  THE  OUTPUT  FIlE.  0 

IPRh  —  SPECIAL  PRINT  FLAG  WHICH  IS  SET  EQUAL  TO  2  FuR  NP*0.  0 

FOR  NP>0,  1PRR*IPR.  0 

IPU  FlAG  WHICH  CONTROLS  THE  PROFILE  JA T ASET  uUTPUT  ON  FILE  0 

•TAPE3S  DAT*  PRINTED  FOR  IPU»1.  FOR  *IPR'«0,  DEFAULT  0 

1PU«1.  FOR  *IPR*» If  DEFAULT  IPJ»0.  0 

DELN  INCREMENTAL  CHANGE  IN  NOISE  POWER  OUTPUT  rvELATIVE  TO  THE  0 

NOISE  POWER  AT  REFERENCE  CONDITIONS  0 

LIM  EXTRAPOLATION  CHECK  =  LA;j  WHEN  LlM«l,  'EXTMX*  OB  LIMIT  IS  0 

CHECKED.  CHECKEO  ONlY  FDR  FIRST  AIR-TO-GROUND  CALL  TO  0 

SUBROUTINE  'DELTAS'  FOR  EACH  POWER  SETTING.  3 

EXTMX  —  MAXIMUM  PERMITTED  EXT RAFOLATI ON  OF  THE  MEASURE  OAT  A  0 

(EPNL  ETC.)  FRUM  THE  REFERENwt  (OPCR)  MEASURE  DATA  AT  0 

THE  REFERENCE  DISTANCE  (1000  FEET).  0 

ITP» IAP» IHP  —  SEE  SUBROUTINE  'SETuPOB*.  0 


THE  FOLLOWING  INPUT  DECK  IS  RE AO  BT  TnIS  PROGRAM!  0 

3 

READ (St  10  01)  UATEfOA  TEN,IPR»ME*S|IPU  <--  (NOTE!  ONLY  ONE  PER  J03)  0 
READ  THE  FOLLOWING  CAROS  FOR  EACH  AIRCRAFT  'ACC*  (AN  ENO  OF  0 

FILE  TERMINATES  THE  JOB) I  0 

READ (5 1 1 3  Qu)  A , I  TEMP, I RH UH, PV ,CKI , OELN ,NP, PSU  0 

THE  FOLLOWING  xE»G  STAThEnT  READS  ONE  OR  TWO  CARDS  DEPENDING  ON  0 


EXTMX  — 


02300 
02320 
02340 
02330 
02380 
02400 
u2*»20 
u  2L-.  C 
02*»o0 
02460 
02500 
02520 
02540 
025o0 
02560 
02b  0  0 
02b20 
02640 
02bo  0 
0  2b  6  0 
02700 
02720 
02740 
02760 
02730 
02803 
02820 
026  4  0 

02oS0 

02883 

02900 

02920 

02940 

029o0 

02930 

03000 

03020 

03040 

03060 

03080 

03100 

03120 

03140 

03160 

03180 

03200 

03220 

03240 

03260 

03280 

03300 

03320 

03340 

03360 

03380 
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THE  VALUE  OF  ’HP'.  ONE  CARD  FOP.  H3*7\  TWO  FO*  NPs'c  tj  l2. 

THE  cNTIRt  RcmJ  STATEMENT  la  OMITTED  WHEN  *NP*=Q . 
nE AD  ts» 1010 )  (PSC  IL)  ,VX(.)  ,DPCi (L> , OPCC(L)  ,L*1,NP) 

ALL  REFERENCE  DATASETS  FOR  AIRCRAFT  *ACC*  *RE  READ  FROM  FILE 
•TAPE7  *. 


C  FORMATS  OF  COCE  SHEET  INPUT  DATA! 

CIO JO  FORMAT (A3, 213, 2 (IX f A  1)  ,Fb. J, I2,A6) 
ClJOl  FORMAT (Aia,A6,aI2) 

C1010  FORMAT <6( A5,F3.Q, 2A2) ) 


THE  PROFILE  OATASETa  ARE  WRITTEN  ON  FILE  ' T  A  PE  3  *  WHICH  CDULO  3: 
COPIED  TO  THE  ‘PUNCH*. FILE - SEE  SU3.  *PPF DAT*. 


C  THE  FOLLOWING  ARE  CHECKED  SQR  EACH  AIRCRAFT  RUN  AnO  ERROR  OR 
C  WARNING  MESSAGES  ArE  PRINTED! 

AW 

C  I)  SKIP  AIRCRAFT  DATA  WHEN  THE  FOLLOWING  OCCUR! 

C  1)  POWER  SETTING  UNITa  ON  COCE  SHEET  AND  IN  REFERENCE  FILE 

C  DON'T  HATCH. 

C  2)  REFERENCE  FILE  UATA  CARD  ERROR  IN  OPERATION  PuWER  CODE, 

C  AIcCRAFT  CODE,  OR  CARO  SEQUENCE  NUMdER. 

C  J)  REFERENCE  FILE  MINIMUN  SLANT  RANGE  IS  NOl  WITHIN  IX  OF  A 

:  standard  profile  ox  stance. 

:  *>  NO  POWE*  SETTING  DATA  FOUND  on  the  reference  file  for  this 

C  AIRCRAFT. 

:  ID  PRINT  warning  MESSAGES  WHEM  THE  FOLLOWING  OCCUR! 

C  1)  REFERENCE  FILE  CONTAINS  MORE  THAN  *  MM  *  DATASETS?  DN.Y  THE 

-  FIRST  *MM*  ARE  READ  FOR  THIS  AIRCRAFT  ( HH»t  INITIALLY). 

Z  2J  REFERENCE  FILE  MININJM  aLANT  RANGE  NOT  EQUAL  TO  1000  FEET 

C  AS  ASSUMED  3Y  THE  PROGRAM  IN  SUBROUTINES  ‘0ELTA6*  ANO 

C  'PPFOAT*. 

C  3)  THE  REQUESTED  POWER  SETTING  FOR  ’NORMAL  RATEO  THRUST* 

C  (OFC*12)  IS  NOT  BETWEEN  'APPROACH*  AND  'TAKEOFF*  (OR 

C  'MAX  RATED  THRUST*  OR  ’INTERMEDIATE  POWER  (MIL)*)  AS 

C  REQUIRED  FOR  THIS  POWER  SETTING. 

C 

C  ill)  REQUESTED  OPERATION  POWER  CODES  (OPOC)  ARE  OMITTED  WHEN  THE 
C  FOLLOWING  OCCUR  (ERROR  HEaSASE  PRINTED  IN  SUB.  •S£TJPQ6,)> 

C  1)  THERE  IS  INSUFFICIENT  DATA  FOR  EXTRAPOLATION  OR 

C  INTERPOLATION  TO  REQUESTED  POWER  SETTING  (PSC) . 

C  2)  *EFtRENCE  FILE  ANO  REQUESTED  POWER  SETTINGS  (Pa  ANO  PSC)  ARE 

C  NUT  EQUAL  mS  REQUIRED  FOR  THIS  OPERATION  POWER  CODE  (OPCR). 

C  3)  REFERENCE  FILE  AND  REQUESTEO  AIRSPEED  (IV  ANO  VX)  ARE  NOT 

C  EQUAL  AS  kEQUIF.EC  FOR  THIS  uPERAUON  POWER  COOE  (OPCR). 

C  4)  REQUESTED  REFERENCE  OPERATION  POWER  COOE  (OPCR)  WAS  NOT 

C  FOUND  IN  THE  REFERENCE  FILE  (TAPE7) • 


0  03*.  j  3 
033023 
0  03**  3 
0  03L6  3 
903O30 
333530 
033520 
■033503 
393560 
333530 
333633 
003620 
3036*3 
003660 
‘003630 
003730 
003720 
3337*0 
003760 
‘003750 
003600 
003620 
0038*0 
0038o0 
003630 
003933 
333920 
333940 
0G39ou 
003930 
334030 
30*020 
0040*0 
00*060 
00*030 
03*100 
00*120 
0041*3 
004lo0 
30*160 
00*230 
00*220 
00*240 
0  J42b  0 
004290 
034300 
304320 
00*3*0 
00*360 
004330 
004430 
004420 
00***0 
034460 
004480 


l 


NOTE  i  IF  NEW  OPERATION  POWER  :OQES  APE  ADDED  TO  THE  KcFEREnCE 
FILE,  VmilIABlE  '  HOPC  *  A  4  0  D«T«  STATEMENT  ARRAY  'JP?(20)' 
MUST  3E  UPDATED  ANO  THE  RUlES  GOVERNING  TmE  NEW  OPD'S  MUST 
BE  APPLIED,  ALL  IN  SUBROUTINE  *  SETUPU6  * . 


VERSION  1  — >  VERSION  2  CHANGES  <29  NOV  1929)1 
THE  ONLY  DECKS  CHANGED  WERE  ‘MAIN*  ANu  'COIST'. 

•MAIN'  DECK!  IVER  WAS  CHANGED  FROM  1  TO  2! 

'COIST*  DECK*  02X11)  WAS  CHANGED  FROM  0.5*01  TO  0.3*01. 

THIS  CHANGES  THE  OISTANCE  RATIO  FART  OF  THE  DURATION  CORRECTION 
FROH  10*LOG<kATIJ>  TO  6*L0G < RA TIC) . 

VERSION  2  - -  VERSION  3i  ADO  PNLTX,  PNLX,  ALTX  ANO  ALX  SINGLE  EVENT 

DATA  TO  Pages  *I*  AND  »h*  for  interpolated  and/or  extrapolated  DATA. 

ALSO  ADO  THE  TA3  PLOT  FOR  THESE  DATA  ON  PAGES  'J'  AND  'N* . 

DECKS  CHANGED!  MAIN, COIST , GPTO , OUTH, OUT J, PPFOAT - 25  SEPT  81. 

»•••»• *•*♦**•**•*♦**«* »»»*♦♦*»•» **•«**» •••«••»•••»**•*»»••» 

DIMENSION  IREQ16) , DR AG (3,6), SOURCE! 2 ,6), OP CD (12) ,S£NX(22,7) 
1,C0M0(6),LFLG(12) »IR£F(12) ,PS0M<6) ,JDM<7> 

COMMON  13Nc,IBNH,L,SR<6,33),NR<&> ,ISRC<24)  ,SPLX<22,24) , 

1  PNLTX  (22)  ,PNLX<22)  ,  ALTX  <2  2)  ,A!.X<22)  ,EPNLX<22)  ,  SELTX  <  22 )  ,  SE- X  <  22) 

2  , PROA (22,6,7) , PR DG ( 22, o,7), PR IC(22, 7, 2) 

COMMON  /C0MPC/IV<6), IMS  ( 5) ,?  <2,o) ,OPC<b) , OPCC < 12) , PS <2, 6) ,PSC<12) , 

1  PSD ,  Pslr (6) ,PSCF (12) , IREQCl 3,12) ,VX(12) , SX(22) ,ATnC(2a) , ATNR(2A) , 

2  DEL N, I PT C ,IPRDP , HEA S (3) , 0 PC R ( 12) , PC ( 2 , 12 ) 

COMMON  /HEAOC/  AC,OATE,ACC,IPAGE,IVX,ITcMP,IRHUh,IVER,PV,CRI, 

1  ET ( 2) , OTC 

COMMON  /OUTC/ORO  ( A3)  ,  ISC  <  9  ) ,  IORO  (  2d )  ,  DASH  ,  DOT,  X  ,  oLK,  OAT  E  N  ,PP  ( 8-.,  3) 
EQUIVALENCE  (PNLTX (1) ,SENX (1,1)} 

DATA  IOfEJ/50, 63,30, 190, 125, 160, 200, 250, 315, 400  ,500, 630,600,1000, 

1  1250, 1600,2000, 25U0, 3 150, 40 00, 5000, 6300, 8000, 10000, 12500, 16 000, 

2  20000,25000/ 

DATA  6LK/1H  /,  DOT/ 1H./ , X/ 1HX/ , DASH/1H-/, W/ 1HH/ , ZERO/ 1H 0/ 

DATA  ATNR/0. 07, 3.05, 0. 11, 0. 1 a, 0.16, 0.23, 0.29, 0.3b, 0.45, 0.5!, 0.73, 

1  0.92,1.17 , 1.a7, 1.65, 2.39, 3.0$, 4.02, 5.a4, 7.63, 9.01, 12. 75, 18. 94, 

2  27 .15/.ICOM/1/ , ASK/1H*/, RV/ 250 . 0/ , I VER/ 3/, 

3  MM/6/.NPM/12/, I» AGE/0/,EXTMX/5.0/, 

4  0PCC/2H6  1, 2Mo2,  2H63 ,2H8<, ,  2Hb»  ,  2Hdo  ,  2H87 , 2H68, 2H65,2H90 , 2H91,  2H92/ 
DATA  JDM/3,2,1,a,5,6,7/ 

I3nl«1 

IBNH«24 

ACC»8LK 

IF  HH  OR  NPM  ARE  INCREASED  THE  CORRESPONDING  ARRAYS  MUST  5E  CHANGED. 
WHEN  OPC'S  ARE  ADDED  TO  DATA  ARRAY  'OPP',  MUPC  MUST  BE  CHANGED  AND 
TME  DIMENSION  OF  ARRAY  *OPP'  MUST  BE  CHANGED  IN  ALL  SUBROUTINES. 

COMPUTE  THE  22  OISaRETE  DISTANCES  USED  IN  SUBROUTINE  'COIST'. 

00  l  1*1,22 
FN*FLOAT(i*22)*0.1 


J  U A3  J  J 

3  0a5  2 0 
0  0a5a  3 
0  0456  0 
0  Gas iC 
334633 
0  Oac  2  0 
0  Gao a G 
004660 
3  Oao  8  Q 
304700 
004723 
G  047 a  0 
G  Qa763 
004730 
0  0a6  0  0 
004620 
0  0a3 aO 
G  UAflo  0 
0  046  3  3 
004930 
3 Ja920 
GG4940 
3 049a 0 
3  Qa9o  0 
005000 
035023 
3  05343 
3350SB 
005033 
005103 
305120 
005143 
005160 
005180 
005200 
005220 
305240 
005260 
305230 
005330 
005320 
005340 
0  053s  3 
005330 
305400 
005420 
Q05aaO 
0  35ao 0 
0  Q5ao  0 
005530 
005520 
305940 
0  09  56  0 
005530 


t 


A 


1  sx(D*io.o**fN 

REaO  CODE  SHEET  InPUT  CAROS! 

IF  *IPR*  >0,  OATA  ARE  F RiNT  ED  ON  FILE  'TAPE& '  (OR  OUTPUT  FILE). 

REAu  (p, 10  01)  DATE , OATEN, IP R,MEAS,IPU 
3E7  IP*,  IPO  ANO  MEAS  DEFAU.T  VALUES* 

IF  < IPR)  2,2,5 

2  IPR=0 
IPU=1 

FOR  *  IP*.' *  0,  ONL  Y  ONE  MEASURE  IS  PERMITTED! 

IF  (  h£AS  ( 1)  +M£  AS  t  2)  +  ME  AS  (  3  )  ~  1)  A, 10,4 

4  MEAS  (3) *1 
MEAS  <1) *0 
MEAS (2) so 
Go  TO  10 

5  MEAS (1) si 
MEAS  (2) si 
MEAS (3) si 
IPRs  1 

IF  (IPU  .LT.  1)  IPU=0 
10  DACwsACC 

IF  < IPR  .GT.l)  IPRsl 
IPRRsJPR 

RE  AO  (5  ,  It!  03)  ACC,ITEHP,lRMUH,PV,CRI ,DELN,KP,PSU 

JOb  IS  TERMINATED  IF  AN  ENO  OF  FILE  IS  READ  ON  UNIT  5. 

IF  ( EOF  <5) )  955,15 
16  IF  (N P  .GT.  0)  GO  TO  17 
IF  (IPR)  970,970,16 

SET  'NP«0*  OEFAULT  VALUES  (AUOITIGNAL  VALUES  SET  IN  SUb .  ‘SETUPD6*) 

16  IPRR*2 
GO  TO  19 

17  IF  (NP  .GT.  NPM)  HPsnPm 

RE AO (5 ,1013)  <  PSD ( L)  ,  VX ( .)  ,3PCR ( L> ,GPCClL>  ,Lsl,NP) 

CO  16  L»1 , NP 

IF  (OPCC(L)  .EQ.  BLK)  OPCC U)=GPCO<L) 
to  CONTINUE 
SET  OEFAULT  VALUES! 

19  IF  <PV  *EU.  9l<)  PV»W 

IF  (CRI  .EQ.SlK)  CRI*ZER0 
IF  (AaS(OELN)  .LT.  0.000001)  DELNsO.O 
IF  (ITEMP  .LT.  1)  GO  TO  20 

SUBROUTINE  *  ALPH  *  COMPUTES  THE  ATMOSPHERIC  ABSORPTION  COEFFICIENTS 
( ATNC )  FOR  THE  PROFILE  OISTAnCE  uATA  IF  ITEMP  AND  IRHUM  ARE  NOT 
SIaNOArG  (59  F  AND  7  0  7.)  . 

CALL  ALPH (FLOAT ( IRHUM) , FL OAT ( I T EMP) , ATNC , I BNL , IBNH) 

GO  TO  30 

20  ITEMP«59 
1KHUMS70 

OO  25  J*I8NL, IdNH 
25  AT NC  ( J>  *  ATNR(J) 

IF  «CC*OACC,  REFERENCE  OaTA  ARE  aLREAOT  REAO  FOR  THIS  AIRCRAFT! 

JO  IF  (ACC  .EO.  OACC )  GO  TO  155 

REaO  all  REFERENCE  OATA  FOR  AIRCRAFT  ‘ACC*  FROM  THE  REFERENCE  FILE 
(TAPE7)— HERE  TO  wA9El  150! 

RE  HI NO  7 
L*  0 


005600 
005620 
305640 
005660 
005560 
0  057  J  0 
005720 
005740 
005760 
005730 
005600 
005620 
0056*0 
005660 
0  056  SO 
005900 
005920 
0  03940 
005960 
005980 
0  360  0  0 
0  0b  0  2  0 
006040 
OOoOaO 
006060 
006103 
006120 
0061*0 
0  06160 
<1  94160 
J  C  3  0 
00o22Q 
006240 
006260 
0  0o263 
OOoJOO 
006320 
0063*0 
006350 
006360 
006400 
006420 
006443 
0064o0 
006460 
00o500 
006520 
0065*0 
006560 
006530 
006600 
006620 
0  Qo6*  0 
OO066O 
0  O068  a 


1 


rl 
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'ICON  *  IS  OEFINEu  As  FOLLOWS  A=TER  THE  FIRST  DATASET  IS 

file  *t ape7 *  (Initially  •icoh,*i)» 

ICOn  =  l * OuMDECK *  CARL  IS  PART  OF  THE  NORMAlIZEu  daTA 

ICOM=0  —  'COMDECK'  CARL  IS  NO  T  PART  uF  THE  NORHALIZEL 
50  IF  (ICON)  70,70,55 

REmD  'CONOECK'  JR  FIRST  'COMMENT'  CARD  CO  CHECKS  CARO  T 
35  RE AO  (7  , 12  05 J  CO, 0 ACC ,LOPC , OS  1 , CS2 
IF  ( EOF (7) )  100, oO 
SO  IF  (CJ  .£Q.  ASK)  CO  TO  70 
ICOhsO 
GO  TO  75 

READ  'COMOECK'  CAROI 
<33  RE  AO  (7 , 1205)  CO 
IF  (EOF (7))  100,70 
REAL  FIRST  'COMMENT'  CARD! 

70  RE  AO (7 , 12  05)  CO, O ACC ,OOPC , OS  1 , 0S2 
IF  <  EOF ( 7 ) )  100,75 
75  IF  (OACC  .EQ.  ACC)  GO  TO  90 
IF  ( L)  60,60,150 

READ  THROUGH  THE  NORMALIZED  O AT  A  DECK  (5  CAROS). 

60  OO  95  1*1,5 
65  READ (7 ,1200)  OACC 
IF  ( ICON)  70,70,65 
90  L*L«-1 

IF  (L  .GT.  Mfl)  GO  TO  130 
OPC(L)*COPC 
SOURCE ( 1, L) *051 
SOURCE ( 2, L) *OS2 
READ  SECOND  'COMMENT  •  CAROI 

RE AO (7 , 12 DO)  OACw , OCPC , OT C , ET , (URAi (I , L ) , I* 1, 3) 
READ  THIRD  'COMMENT'  CAROI 

REAO (7 , 1210)  0 ACC, CO MO (L), PS Oh 
IF  (NP  .uT.  1  .AND.  PSU  .EQ.  BLK)  GO  TO  95 
SELECT  THE  POWER  SETTING  WHICH  MATCHES  THE  PSU  UNITSl 
OO  92  1=2, b, 2 

IF  (PSU  .EQ.  PSDM(IJ)  GO  TO  96 
92  CONTINUE 
GO  TO  960 

95  1  =  2 

96  PS (1 ,L ) =PSDM ( I -1) 

PS (2 ,L) =PSOM( I) 

REAO  AND  CHECK  THE  3  DATA  CARDS! 

READ  (7,1103)  DACC,UTC,DOPC,lC,AC,P(l,L>  ,P(2,L)  ,NMl>  , 
1  SR ( l , 25) 

IF  ( LACC  .HE.  ACC  .OR.  OOPC  .NE.  OPC(L>  .OR.  IC  .NE. 
REAO  (7, 1110)  CACC,OTC,OOPv,IC,  (SR(L,  J)  ,  J=2t>,  33)  ,  (SR  ( 
IF  ( OhCC  . NE .  ACC  «CR.  DOPl  .NE.  OPC(L)  .OR.  IC  .NE. 
REAu (7 , 1110)  OACC,OTC,OOPC ,IC,  (SR(L«J)»J*  9,26) 

IF  (OACC  .NE.  ACC  .UR.  DQPC  .NE.  UPC(L)  .OR.  IC  .NE. 
IF  (ICON)  70, 70, ob 
100  IF  (L  .GT.  0)  GO  TO  150 

NU  REFERENCE  OAT  A  FOR  'ACC'  FOJNO  IN  THE  REFERENCE  FILE  I 
WRITECo, 3 100)  ACC 
GO  TO  10 

WARNING  —  MORE  THAN  'Mm'  EFERENCc  DATASETS  FOUND  IN  T 


READ  FROM  006700 

006720 

SET.  3  067-.  0 

DATASET.  0t)o76  0 

006780 

YPE) I  0  066  Q  Q 

006620 
0 O08.O 
0  666o0 
006630 
006900 
006920 
006940 
0  06960 
006990 
007000 
007020 
007040 
007060 
007060 
037100 
007120 
0071.0 
007160 
367190 
007230 
037220 
3372.0 
007260 
007290 
037300 
007320 
0073.3 
0  07  3o  0 
007390 
007400 
007.20 
0074.0 
307460 
007490 
007500 
007520 

IHS(L) ,13 (l), 3 37540 
3  Q75o0 

1)  GO  TO  9503375=0 

L , J ) , J= 1 , 8 )  007630 

2)  GO  TO  950007620 

007640 

3)  GO  TO  950007660 

007690 

037703 

007720 

007740 

307760 

HE  REFERENCE  307790 


ooooon  o  onon  non  o  o  oooooo 


:  filei 

1J0  NRITElb, 3200)  *LC,Mh 
L*L-1 
130  N*L 

:  SUBROUTINE  'SETUPD6*  DETERMINES  THE  INPUT  REFERENCE  DATA  REQUIRED  TO 
:  COMPUTE  EACH  REQUESTED  OUTPUT  »0WER  CONDITION  (OPCC)I 
13b  CALL  5ETJP06(I*EQ,N,NF,ACC,ITP,1AP,IHP) 

4u0  EXTkA  PRINT  TO  CHECK  PROGRAM! 

WRIT  E  <  3 , 4  00  0)  ( I  R£Q(  ID  til  =1  ,  N) 

WRITE  (3)4  100  )  (  (IREQCai,  J  Jl  ,11*1,3)  ,UU*1,NP> 

hu) 0  FORMAT (1X,o13) 

HlJG  FOkM AT (lX,lel4) 

ENL  OF  EXTRA  PRINTOUT******** ******* 

IF  (IPR)  1/0,170,160 

SUBkOUTINE  'TIIPG*  PRINTS  THE  TITLE  TCQVER)  PAG El 
160  CALL  TITPGUPRR) 


‘IPA* 

*  OUT  U  *  • 


INITIALIZES  THE  PlQT  ARkATS  FOR  SUBROUTINES  *0UTG*  ANO 


CALL  IPA 
170  iPAG£*0 
IC»0 

hABEL  a 00  LOOP  —  COMPUTE  THE  3ROFIL£  DATA  FOR  THE  REQUIRED 
(IRE3 (L)*l)  RFEREHCc  DATA  POWER  CONDITIONS  AT  THE  PROGRAM 
REFERENCE  IRtf)  AIRSPEED! 

OO  600  L=1,N 

IF  (IPRR  .  EQ.  2)  lFLG<U*0 
IREQ(L) <1  —  OMiT  REFERENCE  DATA  FOR  LTrt  OPC I 
IF  (IREQ(L)t  600,600,510 
510  IP AGE=IPAGc*l 

IVX  —  REFERENCE  DATASET  AIRSPEED  HER El 
IVX*1V(L) 

COMPUTE  MEAN  PNl,  PnlT,  AL  ANO  ALT  FROM  MEAN  SPL  SPECTRUM. 

MEAN  PNL  — *  ALT  ARE  SToRED  IX  SR<L,2fe>  — >  SR(L,29) 

MEAN  VALUES  ARE  PRINTED  ON  PAGE  *3'  ANO  ALSO  USED  IN  SUBROUTINE 
•CDIST*. 

10*0 

call  CAL(l,IO> 

IF  ( HE AS (1)*MEAS(2>)  536,533,512 
512  CALL  CPTC(PTC,L,IO) 

SR  <1 ,33) *PTC 
COMPUTE  AlT(L)< 

SML,29)*SR(L,26)  *PTC 
IF  (MEAS(D)  535,535,513 
515  CAi»l  CPNL  ( L ,  I O) 

IF  ( SR < L , 26) • GT •  9990.0)  GO  TO  520 
COMPUTE  PNLT (L) I 

SR (L  ,27 ) *SR (L , 26) *PTC 
GO  TO  52? 

520  SR  (L  ,27 )  * '*669 . 0 
525  IF  (IPR)  535, 53?, 530 
PRINT  OUTPUT  PAt»E  *3‘. 


037600 
007620 
007640 
007660 
007660 
007900 
307920 
0379*0 
007960 
007360 
306030 
006020 
006040 
306060 
3  OeC  6  0 
006100 
006120 
006140 

ooaioO 
306160 
008200 
003220 
003240 
006260 
008260 
333330 
006320 
3  06  3h 0 
008360 
006363 
003430 
006420 
0034*0 
008460 
006430 
006530 
006520 
0065*0 
003560 
303530 
006600 
038o20 
0086*0 
006660 
306630 
003700 
306720 
0037*0 
006760 
006760 
0x6600 
003820 
0086*0 
036660 
006860 
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IX)  4)00  0  0  4)  OO  O  OO  OO  OO 


53 0  CALL  UUTG (DRAG , SOURCE)  008930 

535  UO  5*0  IPROP* 1 , 2  908320 

CUMPU7E  SPL,  PNL i  PnlT,  ETC.  FOR  22  DISTANCES.  0089*0 

CALL  CUISTURO.RV)  OO030O 

IRU  IS  THE  INDEX  OF  THE  STANDARD  CISTAnCc  SET,  SX(i),  3ua980 

OukRESPOnOIHD  TO  THE  REFERENCE  DISTANCE,  IHS(L).  009000 

IF  l 1x0  .LT.  1)  30  TO  940  009020 

WitlTE  WARNING  MESSAGE  WHEN  THE  REFERENCE  DISTANCE  IS  NOT  EQUAL  TO  0090*0 
1 Ou 0  FEET  (IRU*8) t  0090o0 

IF  ( IiiO  .NE.  6)  WRIT  El  6*  23  10 )  ACC ,  OPC  (t)  ,  I  MS  (L )  009080 

SUBROUTINES  'oUTH'  ANO  *0UTJ*  ARE  CALLED  HERE  ONLY  IF  I PR»o  FOR  THE  009100 
* NP* 0  *  OPTION  (IPRR  IS  SET  EQUAL  10  2  BY  THE  PROGRAM) t  009120 

IF  (IPk»IPkk-3>  340,936,540  0091*0 

SUBROUTINE  OUTH  PRINTS  PAGES  *4*,  *l»,  *L*  AnO  *M*.  009150 

536  IPF*  1  003180 

CAll  OUTH ( IRO, IPTC,SENX,1C,IPF)  009200 

JUTJll)  PRIhTS  PAGE  *J*  DATA-  — PLOT  OF  »PNLT  X »— >  •  ALX'  DISTANCE  DATA0u9220 

OUT  Jl  1)  PRINTS  PAGE  *N*  DATA-  —  PLCT  OF  *PNLTX  •  — >  *  ALX  •  DISTANCE  OATA009240 

CAlL  OUTJ(IPF,SENX,IC)  009260 

JUTJ12)  PRINTS  page  *K*  OAT  A- -PLOT  OF  *EPNlX*— >*SElTX'  DISTANCE  DATA009280 

OUTJ12)  PRINTS  PAGE  *0*  DAT A--PL01  OF  *EPNuX *—> *SELTX •  DISTANCE  DATA0093U0 

1PF*2  009320 

CALL  OUT J ( IPF , SENX ,IC)  009340 

5*0  CONTINUE  009360 

600  CONTINUE  009380 

IF  ( iPRR  .Eg.  2  .AND.  IPJ  .lE.  0)  GO  TO  710  009400 

WHEN  IPRR>2  ANO  IPU»0,  ENTER  LOOP  700  ONLY  TO  SETUP  ARRAY  •PRDC*  FOR  009*20 

WRITING  PROFILE  UATA  ON  FILE  *T APE3* - NJT  VERY  EFFICIENT  9JT  KIll  009**0 

SElOOM  APPLYI  009*o0 

CALL  SUBROUTINE  *  CELT  A6  •  FOR  EACH  OF  THE  REQUESTED  OPCCSl  009480 

IC«2  009500 

IP AGE*  0  009520 

OO  700  L  *  1 ,  NP  0095*0 

VFCT - AIRSPEEO  ADJUSTMENT  FROM  PROGRAM  REFERENCE  CRV)  TO  RSQJES i EDO  09560 

OUTPUT  FOR  lTH  OPCC  (KNOTS! <  009580 

VFCT *10.8* ALOG10(VX(L!/RV)  0  095  0  0 

IVX  —  PROFILE  DATASET  AIRSPEED  FOR  LTH  OPCCI  009620 

IVX«ICV(VX(L> )  0096*0 

LIN*  0  009660 

LFlG(L)«0  009680 

1REF(l)*0  009700 

OO  o2Q  1*1,7  009720 

J*JDM(II  0097*0 

VFC*0.0  009760 

IF  ( J  .GT.  3)  GO  TO  605  009733 

VFC*  VFCT  009600 

IF  < ME AS ( J! )  620,620,610  004820 

o05  IF  (IPR!  620,628,610  0096*0 

610  L1M*LIM  +1  0V9660 

COMPUTE  AIR-TO-GROUND  PRUFI.E  DATA  FOR  JTH  MEASURE!  009830 

CAlL  CELT A6 (PR3A ( 1 ,1 , J) ,PRJC (1,J,1) ,L ,P3IF ,PSCF , IREUC, LF LG (L) ,VFC  0 09900 
l»LlM  , PSC,EXTHX,ITP,I  AF-,IHP  , IREF (L!  )  009920 

COMPUTE  GROUND-TO-GROUND  PROFI.E  DATA  FOR  JTH  MEASURE!  0099*0 

CALL  0ELTA6(PR0G(1,1,J!,PRU:(1,J,2>  ,L,PS1F ,PSCF ,IR£QC, lFlg (L) , VFC  009960 
l,IC,f-aC,EXTMX,ITP,IAP,lH», IREF(L) !  JC4980 
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0  0  4/  CJ  O  (t  ()  ()  ()  4/42  0  0  04:00 


620  CONTINUE  010003 

IF  UFlG<U>  70Q,6»G,o50  010020 

650  IF  ( IPRR-1)  6/ J,  *6  0, o?  0  0100*0 

oo 0  IPAGE«IPA«E*1  010060 

00  005  IPRUP*1,2  010080 

Z  RRaNT  PAGE  'I*  UR  • N *  I  OlOlOO 

IPF*3  010120 

uAwu  UUTh  < IKO ,  IPTC.PRDC  (1*1,  I  PROP)  ,  LFkG  ( l )  »IPF)  0101*0 

:  P«v*.NT  PAGES  *J*  FUR  XPR0P*1  OR  PAGE  *N  •  FOR  I?R0P*2»  010160 

IPF#4  010160 

CALL  UU7JUPF,?RJCll,l,IP*0P),LFlGCL))  010200 

C  PRINT  PAGE  *K  *  FOR  IPRUP*1  OR  aAG£  *0*  FOR  IPRQP«Z1  010220 

IPF»3  0102*0 

oo5  GALL  OUT J < IPF , PROC (1 • 1 *IPkO* )  , IFlG ( L) >  Jl32o0 

6/0  IF  <1PU)  200,700,660  010260 

010300 

GALL  SJB.  'PPFOAT*  TO  PUNCH  THE  EPNLX,  SELTX  AND/OR  SELX  PROFILE  010320 
3ATASETSI  010340 

010360 

iref<lj>o  —  second  slope  reference  required  because  010330 

PSCF(L)  AND  PSIF(Ra)  ARE  ON  OPPOSITE  SIDES  OF  PS1F (IAP) l  010400 

630  10*0  010420 

IF  (IftEF(L)'l)  695, c<  85 ,690  010*40 

635  I0*IHP  010460 

GO  TO  695  010460 

690  10*1  TP  010500 

695  CAuL  PPFOAT (PRO*. LFLG<L) , CORO, IQJ  010520 

7JG  CONTINUE  0105*0 

IF  (IPR)  iu,ia,/i0  OlOEoJ 

GALL  SUSROUT INE  * SUHRY*  TO  PRUT  SUMMARY  PAGE i  010580 

710  CALL  SUHRYdPU, COHO, EaTMX,N,NP, SOURCE, lFLG.IREF.ITP, IAP, IH»>  010600 

GO  TO  IS  J 106  2  0 

0106*0 

WRITE  ERKOR  STATEMENTS.  010 660 

010680 

ERkOR  IN  REFERENCE  DISTANCE!  010700 

9*0  HRIT Cl 6 ,2900)  ACC , OFClL) , I (6  l L)  010720 

GO  TO  10  010740 

REFERENCE  DATASET  DATA  CARD  ERROR!  010760 

950  WRITE ( 6 , 2760)  ACC *ACC,OACG ,  OPC ID , OOPC, IC  010780 

GO  TO  10  610600 

INPUT/OUTPUT  POWER  SETTING  UNITS  ERROR!  010820 

9o0  WRIT E ( 6 ,2 0 00)  ICC  ,OPC  <L>  ,PSU,  <  PSOMU)  ,1*2, 6,  2)  0106*0 

GO  TO  10  0106*0 

970  WRITE16 ,2600)  *CC  310680 

0ACC*0LK  010900 

GO  TO  10  010920 

999  STOP  3109*0 

£••«»•••«• 01096 3 
1033  FURHATIA3, 213, 2<1X, A  1) ,F6. 0,12, A6>  011000 

1031  FORMAT  t  A1 0 ,A6, 5Z2)  011023 

101 0  FORMAT (6(A5,F3.0,2A2))  011040 

1100  FORMAT <3X, A3, A1,A2,„X, II, 3A10,l*, 215, F5.1)  01l0»0 

1110  FORMAT (3X,A3,Al,A2,cX,Il,lo74.1)  011060 


1290  FORHAK  8X, AJ, A2,A 1,3X, AlO , AS, IX, 2A10,  A5> 
1295  FORMAT (Al,7X,A3,A2,4X,2A10) 

1210  FORMAT  (6X,A3,A5,22X,  3<A*,1X,  At,2X)> 

2090  FORMAT ( *1  FOR  ACC*  *,A3,*  AMO  OPC*  *,m2/* 


011100 

011120 

OllHO 

POWER  SETTING  JNITSOIDdO 


1  REAL  FROM  NORMALIZE  3  DATASET  DO  NOT  MATCH  UNITS  ON  CODE  SHEET*/  011130 

2  •  P$U**,Ao/  *  NORMALIZED  OATASET  UNITS  ARE  I  *,3(A6,2X>/  011200 

3  •  All  QATA  FOR  THIS  ACS  OElETEO  FROM  THIS  JOB.*)  011220 

2760  FORMAT <*1  OMli  AIRCRAFT  »  *,AJ,*  FROM  THIS  JOB.*/  0112*0 

1  *  ERROR  IN  AIRCRAFT  CODE,  OPERATION  POJ1126J 

1MCR  CODE  OR  CARD  SEOUENCE*//  •  ACC  *  *,A3,*  DACC*  *,A3/  011280 

2  •  OPPC*  * ,m2 , *  OOPS*  •  ,A2/  •  SARD  SEO  NO.  *  • , 1 2 )  0113J0 

2690  FORMAT <*1  OMIT  AIRCRAFT  »  *,A3,*  FROM  THIS  J03.*/  911320 

1  *  CUOE  SHEET  PARAMETER  NP<1  IS  NOT  PERMITTED  FOR  NO-PRINT  UPRA113-*0 
2*0)  MODE.*)  U113bO 

2300  FOrMAT ( f 1  FOR  ACC*  *,A3,*  AND  OPC*  *,A2/*  ALL  DATA  OMITTEO  F0011330 
Ik  THIS  AIRCkAFT  BECAUSE  HE  REFERENCE  DISTANCE**  ,15/ NX,  •  IS  NOT  WIT011490 
2HI N  IX  OF  ANY  OF  THE  STANDARD  DISTANCES.*)  011420 

2910  FORMAT ( *1  FOR  ACC*  *,A3,*  AND  OPC*  *,A2/*  WARNING  —  REFEREN 0 11440 
ICE  OISTANCE**,I5/4X(*nhICh  IS  NOT  1000  FEET  AS  ASSlIMEO  IN  SUBrOUTI 0114o0 
2NES  OELTAb  AND  PPFJAT.*)  011430 

3190  FORMAT <*1  NO  POWER  SETTINGS  WERE  FOUNO  FOR  AIRLkAFT  SOjE  *  *,A3>  011503 

3200  FORM  AT ( *1  NOT  AlL  FEFEREnCE  OATA  WERE  RE Au  FOR  AIRCRAFT  CODE**,  011520 

1A3/  •  THERE  ARE  MORE  THAN  THE  MAXIHOM  NUMBER  (*,12,*)  OF  REFEREN 0 11540 
2CE  DATASETS  IN  THE  FILE.*)  011560 

. . .  gUS,  J 

•••**•••**••••*••**••***••**•******••***•••*•*•**•*♦*****•*****•**••••* 0 Hb 0  0 

ENU  Ollb’O 


if 


subkouune  AlPhuel. temp,4b: »il » i h) 
JECK  1  ALPH 


IN  THIS  SUBROUTINE,  THE  PROCEDURE  USED  TO  CALuULAT E  THE  COEFFICIENTS 
OF  ATMOSPHERIC  ASSUMPTION  IS  HE  SAME  AS  DESCRIBED  IN  SmE  AMP  86b  A. 

SUbkOUT INE  *lPH(REL, TEMP, ABC,  IL.IM) 

WHERE . 

k El  -  RELATIVE  HOMI 01 TT  IN  PERCENT 
TEMP  -  TEMPERATURE  IN  DECREES  FAHRENHEIT 

ABC  -  ARRAY  CONTAINING  IhE  COMPUTED  COEFFICIENTS  OF  ATMOSPHERIC 
ABSORPTION  IN  08  PER  1000  FEET 

IL  -  FIRST  SAND  FOR  WHICH  ABC  IS  COMPUTED  (IL*1  CORRESPONDS  TO 
SmND  NUMBER  17). 

1H  -  LAST  3  A  NO  FOP  WHICH  ABC  IS  COMPUTED  (IH«2*  CORRESPONDS  TO 
bANO  NUMBER  40) . 


;* 


IN  ThIS  SUBROUTINE  15L=17  COkRESPONOS  TO  lL«l  ANO  I3H*40  •• 

CORRESPONDS  TO  IH»24.  IF  THIS  IS  CHANGED  IN  THE  PROGRAM,  •• 

this  subroutine  must  be  changed  accordingly.  •* 

ABC(J)  IS  only  COMPUTED  FOR  1/3  OCTAVE  BANOS  17  TO  40.  •• 

IF  13l  AND  13H  ARE  OUTSIDE  THIS  RANGE,  CHANGES  MUaT  BE  •* 

MADE  IN  THIS  SUBROUTINE  TO  LIMIT  COMPUTATIONS  TO  THIS  RANGE.  *• 


u 


r. 


NOT  El 

THE  FOLLOWING  COMMENT  lAROS  CONTAIN  SOME  OF  THE  EQUATIONS  AS 
DEFINED  IN  SAE  ARP  866A. 

THE  FOLLOWING  F(TEMP , REL)  15  THE  SAME  AS  DEFINED  IN  THE  PROGRAH 
BElOUS 

F  ( TENP , REL) *10.0**(ALOU10(REL) -1. 9727*66* ♦ 0. 02286074* TEMP 
1*0.8 00 065 99* T EMP**2*  8.  0000 80  3*TEMP**3> 

ALHX»FT 1*FREG  IS  THE  SAME  AS  THE  FOLLOWING  I 
ALMX*10.0**(AlOG10(FREQ) -2.421«*0.281*TEHP/6Q. 0‘ 

FT2*(FRfcQ**2. 05)  IS  THE  SAME  AS  THE  FOLLOWINGl 
lu.0*»(  2.  05*ALO6 10  (FREQ/  10  00.0)  ♦0.00  0833*1  EHP~t.*5325> 

THE  FOLLOWING  TWO  CARDS  ARE  REPLACED  BY  LABEl  bl)  IN  HE  PROGRAMS 
SO  ALM«ALMX»ALN 

hBC(  J)*4LH«-10.0**  (2. 05 *ALOG10( FREQ/ 1000.0)  *0.  000633*TEMP- 1.45325) 


DIMENSION  X  ( 29 ) ,Y (231 ,FRE03( 24) , ABC (2m) 

F (TEMP, RED *0. 010647 64002* REL* 10. 0** (0 . 02288 074* TEMP 
l-6.flti009589*TEMP**2*  0. 0000  00  3*TEHP**3) 

OAT  A  FREQ3/50.3, 63.6, 60.6,  100. 0, 125. 0,180. 0,200. 0,280.0, 31$. 0, 

A40 0.0, 9 00. 0,630. 0,600.0,10 00.0,1250.0,1800.0,2000.0,2500.0,3130.0, 
34 003.0, 4* 7o.0, 5612.0, 7 09 6.0, 8943.0/ 

DA  f A  X/0. 0,0. 25, 0.50, 0.6,0. 7, 0.6, 0.9, 1.0, 1.1, 1.2, 1.3, 1.5, 1.7, 2.0, 
A2. 3, 2. 5, 2. 8, 3. 0,3. 3,  3. 6, 4. 15,*.. 45,4.8, 9. 25, 5. 7, 6. 05, 6. 5, 7 .0,10.0/ 


011540 

011660 

011660 

011700 

011720 

3117*0 

011760 

011730 

011600 

011620 

0116*0 

011860 

011880 

011900 

011920 

011940 

01196Q 

011980 

012000 

012020 

012040 

012060 

012080 

012130 

012123 

0121*0 

012160 

012130 

012200 

012220 

0122*0 

012260 

012280 

012330 

Q1232Q 

012340 

012360 

012380 

012400 

312420 

012443 

012490 

312480 

012500 

012520 

012540 

012560 

0125B0 

012600 

012620 

012640 

012660 

012680 

012700 

012720 
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DA  TA  T  / 0.  0,  0.315, 0.7  00,0.3*,,  0.53,0.975,0.9  9b  ,1«C,J.97,0.9,0.34,  012740 

AO.  75,0. 67,0.57,0.491.  .0.45,  0.  4,  0  .  37 , 0.33, 0 . 3,  0 .  2b  ,  0. 2-5,  C  .  23 ,  0 . 22 ,  0127  6  0 
80.21(0.205(0.2.0.2,0.2/  012730 

4  IF  <1H  .ST.  24)  Xh«24  012800 

HA«F (TEHP.iiEL)  012820 

FT  1» 0.0 037887  83337*1  0.J**<  0.  0U<« 68  33  33333* TEMP)  01264  0 

FT2»2.493159l3602E-o*10.fl**< 0. 0 0063 3*TEMP>  0128o0 

DO  ICt)  J«Xb(lM  012630 

FR£Q»f«Ea3(J)  012930 

15  NNX«(F*EU/1010.0)  »*0.5  012920 

MN«HA/HMX  012940 

XF  (MM-o.50)  30.20,20  012960 

20  ALN*  0.2  012380 

GO  TO  60  013000 

30  IF  (HN)  -0,40,50  013020 

•* 0  Al  N«  0. 0  013040 

GO  TO  60  013060 

50  ALN«ATKMX,Y,  29,2  ,MN)  013080 

60  m3C<J>*Fk£4*FT1*ALN*FT2*  (F*E(J**2.05>  013100 

100  CONTINUE  013120 

XETUfcN  013140 

END  013160 


FUNCTION  ATKN  (  X,  1  ,N,  K,  XI  ) 
DECK  2  ATKN 


ATKN  AIT  KEN  INTERPOL  AT IVG  FUNCTION  AJAPTED  TO  THE  OMEGA  $ 

program;  used  sy  subroutine  alph. 

USAGE* • • 

Z*ATKN<X,Y,N,K,XI) 

WHERE. «« 

X  •  TABLE  OF  I  NOE  PE  NO  Em  T  VAFIABlE  VALUES  IN  ASCENDING  ORDER  < 
Y  -  TABLE  OF  OEPEMUENI  VARIABLE  VALUES. 

N  -  NO.  OF  POINTS  IN  TA8.ES  X  ANU  Y  1 2 9 > . 

k  -  uEGr.EE  of  interpolation  desired  (2>. 

Xl-  X-VALUc  FOR  WHICH  INTERPOLATION  IS  OESIRED. 

THE  INTEPOlATEU  VALUE  IS  RETURNEu  4a  THE  FUNCTION  VALUE. 


DIMENSION  X(N),  Y<N) 

DIMENSION  XX( 13) , YYl 13) 

K1 *K  *1 

10  IF  (XI-X(IJ)  20,20,30 
20  LL*0 

GO  TO  200 

3  i  IF  (X(N)-XP  <0,10,30 
<0  ll*n-ki 
GO  TO  200 
SO  LL *1 
LU*N 

60  IF  CLU-LL-l)  180,180,70 
70  Li  * ( LL+LU) / 2 

IF  ( X(LI) -XI)  afl,o0,90 
30  LL*lI 
GO  TO  60 
90  LU *L I 
GO  TO  60 

130  LL*lL-(K1*1)/2 

IF  (LL>  20,200,190 
130  IF  <LL»K1-N)  200, 200, L0 
200  DO  210  1*1, K1 
U*lL»I 

XX U)*X  111) -XI 
210  YY  ( 1 1  *  Y  (ID 
□O  220  1*1, K 
DO  220  J*I,K 

22  0  YY( J*l) *<1./(XX( J*l)  -XX«1J  >>  MYVCI)*XX  <J*l)-YY  CJ*1)*XX(I) ) 
ATKN*YY (Kl) 

RETURN 

END 


013130 
313200 
‘  0 132  20 
>0 132*0 

013290 

013233 

013300 

013320 

013340 

013360 

013330 

013400 

013420 

013440 

013*o0 

013480 

013500 

013520 

0135*0 

013560 

013580 

013630 

'013623 

►0136*0 

013660 

013630 

013700 

013720 

013740 

01376C 

013760 

013630 

013620 

013640 

013860 

013860 

013900 

013920 

0139*0 

013960 

013980 

014000 

01*020 

0140*0 

01*060 

014090 

01*100 

014120 

0141*0 

0l*lo0 

01*180 

014200 

014220 

01*240 

014260 
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FUNCTION  ICV(0>O  014230 

JECK  3  CQNi/EK.Ti  DATA  FROM  Ft  04  TIN  i  POINT  TO  INTEGER.  014300 

R*QR  011*320 

IC  V»R  014340 

00«*-FL0mT (ICV)  014330 

IF  (A3SU)D>  .it.  0.499949)  I CO*IC0*ISIGN< 1 ,ICV>  014330 

RETURN  014430 

END  014420 


r 


T 


a 


w- 


S COROUTINE  HEAO(IP) 
DECK  4 


014440 
0  1446  0 


SUokOUT IN£  'HEAD'  PRINTS  THE  HEADING  SLOCKS  FOR  PAGES  H,  I,  L  ANO  4. 


►014*30 

014500 
014320 

:  oihEho 

!*****•• •*••***•♦*♦•••*•*••***•••*•••**••*•••♦•♦•••***•*•*•***•*••*•*•*• 014560 
UlflEHSION  PG(  1  0)  » CHI  (7)  ,  DH  21  3, 2)  »  DI 1  ( 2)  »PAG<12)  014530 

COHN  ON  IS  NL , I 3Ur( ,  L  014600 

COHHON  /wOHPC/IV(6) , IMS) 6)  ,?  (2.6)  ,OPC(b»  , OPCC < 12) ,PS  (2,  6)  , PSC <  12)  ,  0 14b 2  0 

1  PiU  ,  PS  IF  <t>J,PSCF<  12  ),IREQC(  3,1 2)  ,  OX  (12)  ,SX<22)  ,ATNC(24)  , ATNR<24)  ,014640 

2  0ELN,IPTC,IPR0P,M£AS(3) ,DPRC(12) ,PC(2,12)  0146o0 

COHHON  /HEADS/  AC , DATE,ACC»I PAGE, I VX, IT£HP,IRHUM, X  VcR,P  V , CRI ,  014630 

1  ET ( 21 , OTC  014200 

DATA  PG/1HA|1HS,1HC« 1HO, lrt  E, 1HF , 1HH , 1HX , 1HL,1HM/ , BLK/ H  /  014720 

1 ,  P AG/1H 1,  1H2,1H3,  lH4,lH5,lH6,H7,iHo,lH9,2Hlfl,2HU,2Hl2/  014740 

DATA  4SK/1H*/,  DH1/10HSOUND  FRE3, 10HSURE  LEVEL, 10H  SPECTRA  A,  014750 

o  10HS  A  FUNCTI.IOHON  OF  SuAN,10HT  0ISTANCE.6H  ( OS) */ , OH 2/ 1 OHAIR-TO 0 147 3 C 
C-uRO,  10HUNO  P ROP AG,  SHATIO*,  1 OHGROUNO-T 0- , 1 OHGROUNO  PRO,  014300 

U  1 OHPAG AT ION  /,  Oil/ 10HSX  HOLE  EVE, 10HNT  NOISE  A/  014320 

014640 

IP  *  7  THROUGH  3  CORRESPONDS  T3  PAGES  H,  I,  l  AND  H.  014360 

014630 

IF  (IP  .£0.  3)  GO  TO  220  014900 

210  MkITE(6,3Qu61  OH1,  (OH2 (I , IFROP)  , 1*1 , 3)  ,1 VER  014920 

GO  TO  250  014940 

22 0  HRiTE( 6 ,3  000)  DI 1 ,OH 1 (4) , 3  HI (5) ,DH1(6) , ASK.6LK, ( UH2( I , IPROP) ,I*l,3  0145o0 
1) , I VEK  014930 

250  IPP* IP*2* IPROP-2  015000 

260  WRIT £(6,3050)  *CC  015020 

HRITE(6 ,3100)  PC ( 1 ,L ) ,PC < 2 ,. > , ITEMP ,OTC,  OPCC(L)  OI3O4O 

WRITE (6 ,3110)  rtC.PSC <L) ,PSd,  IRHUH.PV  015060 

WR1TE4  6 , 3 150)  OATEiIVX  ,3ELN,  PG (IPP)  ,PAG (IPAGE)  015060 

3000  FORMAT ( 1H1/10X , 1H ( ,  106(1H-) , 1H) /  10X,*(  TA6LEI  *,7A10,  8X , • ) IDEO 151 0 0 
1NT IFICATIONl  >*/  10  X , 1H ( ,  68X.1H) , 17X.1H) /  10X,1H(,10X,  3A10, 46X, 015120 

2  *)  UHEGA  10.*,I1,5X,1H>>  015140 

3050  FORHAT(  10X,1H(,  66 < 1H-) , 1H) , 17 X ,1H) /  10X,11H(  AIRCRAFT),  18X,  0151o0 

1  12HI  OPERATION),  19 X,  14W)  HETE0R0L05Y ) ,  15X,  13H)  A/C  CODE)  ,  015130 

2  A3,  3H  ))  015200 

3100  FORMAT  (  1  OX  ,  1H  ( ,  28X  ,  1H  (  ,  4  X,  2A10 ,6X  ,  H)  ,  7  X  ,4HTEHP,6X  ,  H*  ,  1 3,  2H  F,  015220 

1  5X.13H)  UPS  COOE )  ,41, A2  »3H  ))  015240 

3110  FORMAT <  1  OX , 1H ( ,  1QX , A  10 , 6 X, 1H< , 4X, A5 , IX , A6, I4X,  1H),7X,  015260 

1  11HREL  HUMID  *,I3,2H  X,»X,3H)  ,13HPROFIlE  VER)  ,Al,2H  ))  015230 

315  0  FORMAT (  10X,lH(,  23X,1H(,30X,  1H) , 26X, 1HI  , 2X, A  1 0, 5X, 1H)  0 1530 0 

1/  10X,lh(,2eX,lH(,  4X, 10HA IR SPEED  «,I»,»M  KNOTS, 6X,11H)  DELTA  N  *  015320 

2,  F5.1,3H  Do, 10X ,  9H >  PACE  , fcl , A2 ,6X , 1M) /  10 X, 1H < , 106 < 1 H-) , 1H> )  015340 


RETURN 

ERO 


015360 

015380 


225 


oooo  ooooooc 


SUSA OUT IrtE  IPA  0  154 0  0 

JECK  5  015**20 

•«••••••••••»•••••••»•• 

015<*60 

SUBROUT INE  * IPA  *  INITIALIZES  HE  PLOT  ARRAYS  USE-  bY  SUBROUTINES  01*490 

*0UTG*  AnO  *OUTJ*.  015500 

015520 
*•****•• 015E«.0 

OINENSION  URDU  (2  2)  015560 

COrINON  /OUTt/ OAD  l  **3) ,ISG < 9 > , lORO < 26 > ,DASN, DOT , X, dLK, DAT EN ,  015530 

1  P3«6*) ,PU<6*) ,PH<6L>  015500 

DATA  0R-J/1HS , 1HL , 1mA, INN, 1HT.1H  , 1H0, lrtl , 1HS. 1HT , 1HA, 1HN  ,  1HC, 1HE , 0 15520 
1  1H  ,lrlI,lHN,lH  ,1HF  ,1NE  ,1HE,1HT/  0156*G 


015660 

SE1  UP  PLOT  ARRAYS  FOR  TAD  P.OTs  PRINTED  BY  SUBROUTINES  *DUTG'  AND  015630 
*  OUT  J  *  <PB,  PO  AND  PM>.  015700 

015720 

615  DO  620  1*1,63,2  0157*0 

PO (I ) *OOT  015760 

Pb  (I ) =BLK  015760 

Frl(I)*OASH  015600 

K=I*1  013620 

PD (K)*BLK  0 15640 

PMK)*0A3H  015860 

620  PB (<>=BLK  015660 

DO  830  1*3,63 , 10  015900 

630  Pfl  ( I  HOOT  015920 

DO  6L0  1*1,22  0159*0 

K*I ♦ 10  015960 

8W0  ORD(KJ *ORQJ»I>  015930 

00  850  1*1,10  016000 

K*I*32  016020 

0R0( I) *6lK  0160*0 

6i 0  ORQ(K)«bLK  OlbOoO 

ORO  ( *»3)  *BLK  0160  80 

900  RETURN  OlolOO 

END  016120 


subroutine  guigidrag, source; 

DECK  o  OUT  & 


•iUokOUT  INE  *  OUT G  *  PRINT  a  A  T  A  3  PLOT  OF  THE  NORMALIZED  SP. 

7Er«.SUi  FREQUENCY  ANO  PS  1 N T a  THE  PNlT,  PNL,  AlT  AND  AL  DATA 
OOhPulEU  FROM  THIS  NORMALIZED  SPECTRJM.  All  DATA  ARE  FOR  THE  L-TH 
aOHEn  jETTING.  ADDITIONAL  REFERENCE  AnO  IDENTIFICATION  DATA  READ 
FROM  THE  REFERENCE  DATASET  ARE  ALSO  PRINTED  BELOW  THE  PLOT . 


DIMENSION  FQ( 24) , P6 t  75 > , Dr Ai 
COMMON  I3NL ,I3NH, L .SR  Id, 33) , 
COMMON  /CumPC/IV(6), InS<6>  ,a 

1  PSU , PS1F  (6)  *  PSCF <121 , IREQC( 

2  oElNiIFTCi I PRDP>  NEA  S  ( 3)  » DPD 
COMMON  /HEAD C/  ttC  »OA  TE  ,  ACC >1 

1  ET  (  2)  ,OTC 

COMMON  /OUTC/ORO(44) ,ISC(&), 
EQUIVALENCE  (PP(1,1) ,P3(i) ) 
UATA  FQ/4*  ( 1H  )  ,  IMF,  1H*,  HE, 
1  1M  ,1HH,1mZ,SM1H  ) / 

PRINT  »IO*  DlUCK  IN  UPPER  R1DHT 
WRIT E ( 6 >2000)  I VER,A  Co ,OT  C , 
WRI  T  E  ( 6  *  210  0) 

WRITE ( b 1 2  IS  0)  PB.BLK 
MX*-1000 

COMPUTE  THE  LARGEST  *SPL*  VALUE 
OO  25  Jsi BNL • I dNM 
ISRC(J)  =  IC  V ( SR ( L  ,  J) ) 

MX=HAX0 (MX,ISRC(  J) ) 

25  CONTINUE 

NX* (  (MX*7)/10)»10 
COMPUTE  THE  ABSCISSA  SCALES 

oo  a  a  1*1, a 

J*9-I 

ao  isc(jj*Mx-io*i»ia 

MX*MX*2 
HN*I SC  (  1 ) -2 
IF  3*0 

OO  150  J*ibNl , aBnh 

IFQ=IFQ41 

COMPUTE  THE  PuOT  POSITION  OF  *S 
II* I  SRC (  J)-MW*1 

IF  (II  .LT.  1  .DR.  II  .GT  •  7 


(3,o) .SOURCE ( 2 ,o) 

NR ( o ) , ISRC (24) 

(2,b),0PC(6) , OPCC ( 12) ,PS(2,6) ,PSC(12> , 
3,12)  ,VX(  12)  ,SX(22)  ,ATNC(24>  ,  ATN<(  2-.) , 
R< 12) ,PC ( 2 , 12 ) 

PAD£,IVX,ITEHP,1RHUM,IVER,?V,CRI, 

IORO (  20  )  ,iDASH,  UOT,  X,BLK,  DAT EN  , PP (  44 , 3) 
1HQ,1HU,1HE,1HN, 1HC, 1HY, 1H  , 1MI, 1HN, 
CORNER) 

OPC(L) , DATE, IP AGE 


Pc'  VALUE  IN  ISRC ( J) I 
51  11*0 


IFQ  IS  USEo  TO  SET  UP  THE  GRID  PATTERN  WHICH  REPEATS  EVERY  13  LINES, 

L &* 1 - -  PRINTS  5  DOTS  PER  INCH  On  TAB  PLOT. 

wG*2  - -  PRINTS  1  OQT  PER  INCH  ON  TAB  PLOT. 

GO  TO  (fcQ, 75, 75, 60, 75, 75, 60, 75, 75, 70) , IFQ 
oD  L&*2 

GO  TO  60 
7  u  IF Q*  0 
75  LG«1 


016140 
J 16 150 
316160 
0 162  0  0 
016220 
0152<.0 
316260 
316233 
315330 
316320 
016340 
316360 
0 16360 
016400 
016420 
0 I644O 
016460 
016430 
016503 
016520 
016540 
016560 
016560 
316603 
016620 
OlootO 
0 16oo0 
016660 
016700 
31o720 
016740 
016750 
016730 
016800 
016620 
016840 
016860 
0166S0 
016900 
016920 
016940 
016960 
316980 
017000 
017020 
017040 
017060 
017060 
017130 
017120 
017140 
017160 
017160 
317200 
017220 


l 


i o  if  di)  100,103,90  0172*3 

iO  SAVE=PP(II,LG)  317260 

PP  (I  I , L  G) =  X  3 172  8  0 

PRINT  THE  PLOT  Line  1  017330 

130  HraTE(6, 2300)  FQ ( J) , IORJ ( J ) ,  ( PF (I ,L G) , 1  =  1 , 75 ) , SR <l , J)  0  17320 

IF  (II)  150,163,  1*0  0  173*3 

1*0  PP ( 1 1 »L G)  =SA 3 E  017360 

150  CONTINUE  017330 

WRIT  £(b  ,  2 15  0)  PB  317*30 

HRIT£(6,2100)  017*20 

PRINT  THE  ASSCIiS A  SCALE*  317**3 

nRaT E( b , 2*0 0)  ISC  0l7*oG 

317*00 

MEAN  PNL,  PNLT,  AL  AND  ALT  ARE  STORED  IN  SR(L,2b)  - -  $R(L,29>.  017530 

MEAN  PNL,  PNLT,  Al  ANu  ALT  MERE  COMPUTED  FROM  THE  MEAN  5  =  .  SPECTRUM  317520 
IN  THE  MAIN  DECK.  3176*0 

317560 

PRINT  THE  REFERENCE  OATA  SUMMARY  BEL OH  THE  TAB  PLOT)  317560 

HrIT£(o  ,25  0  0)  AC,P(1 ,L> ,P( 2,  L) , PS ( 1 , L ) , P  S ( 2 , L  > , 1 V ( L) , S  R ( L  ,  27 ) ,  017o0  0 

1  I  MS < L)  ,SR l L » 26)  • SR l L *  29)  017620 

HRIT £(6,2600)  N*(L>,IVER,ACC,OTC,  OPC (L) , OATEN , SR (L, 23)  0l7o*3 


PRINT  T HE  REFERENCE  OATA  SUMMARY  BELOH  THE  TAB  PLOT)  317560 

HRlT£(o ,25  00)  AC , P ( 1 ,L ) ,P( 2»L) , PS ( 1 , L ) , P  S ( 2 , L  > , 1 V ( L) , S  R ( L , 27 ) ,  0  17o0  0 

1  I MS ( L) ,SR ( L , 26) • SR ( L , 29)  017620 

HR1T£(6,2600)  N*(L),IVER,ACC,OTC,  OPC (L> , OATEN , SR ( L, 28)  0l7o*0 

HRIT £ (6 ,27  3  d)  SR (L ,3 3) , SO JKC E ( 1 , L ) , SOURCE ( 2, L)  , SR (L,J3),ET,SR<L, 31017b 60 
1) , IjRAG ( I , * ) , 1=1,3), ak(l,32> , SR(L,25)  017660 

RETURN  017730 

2*30  FORMAT (1H1/120X9HOMEGA  ID. ,1 1// 1 2  OX , 10HA/ C  CODE)  ,A3/  1 2  OX , 10HOPS 0 177 2 0 

1  COUEi  , A 1 , A 2 /  1 20X ,  6HDATEI  ,A10//  123X,  7HPAGE  G,Il///)  3177*0 

2100  FORMAT (20X,1H( ,75 (1H-) ,1H) >  017760 

2150  FORMAT (20X,1H( ,75A1, 1H) ,A1 ,5H  MEAN)  017763 

2300  FORMAT*  13X,A1,I5,2H  ( , 75A 1, 1H) , F6.  1)  317833 

2*0u  format (  i5x,6Iio/39x,*ihmean  value  of  normalized  1/3  03  spl  in  db)017£20 
2530  FORMAT{/22oX,A10,5X,2Al0,5X,A5,lX,Ab/7  IdX, 6HAIRSPEED,  7X,lH=31/8*0 

1 , 1 3 , 6H  KNOTS, 10X,*HTEMP,  6X,  7Hs  55  F,18X,bHPNLT  =  ,F o.l,»H  PM  Ob/  017860 

2  loX , 16HSl ANT  DISTANCE  =  ,*5,  5H  ^EET,  017630 

3  11X,  17HREL  HUMID  =  70  /.,18X,6HPNL  «,Fd.1,5H  PND3/  8  8  X ,  oH  AL  T  =017900 

*,F6.1,*H  DBm)  017920 

2630  FORMAT*  IdX,  16HN0.  OF  RECORDS  =,I5,  16X,  1 0HIDENT I  10 . , II , 1H- , A3 0 179*0 
1,1H-,A1,A2,1H-, Ab,  9  X, oH  A„  =,Fb.l,*H  DBA )  017963 

2730  FORMAT (6aX,*C  =*,F6.1,»  JB*/lbX, *DAT A  FROM  *,A10,  317930 

1*  JOb  COHPUTEO  ON  *, A10,25X,*EFNL  **,F6.1,*  EPND8*/  016033 

2  16X,*ENGINE  TYPE!  * ,A 10 , A  5,  **X , *SEL  **,F6.1»*  Ud*/  018020 

3  lbX,*DRAG.  CONFIGURATION!  *, 2A10 , A5 , 27X , • SELT  *»,F6.1,*  OB*/  0130*3 

*  b6X,*THETA»*,FB.l,*  DEG*)  0180b0 

END  018080 


SUBROUTINE  C0I3T ( IKD ,RV) 
DECK  7  CLXST 


subroutine  *cdist'  computes  the  s’l  ano  single  event  noise  oata  for 

22  DISTANCES  FOR  Alk-TU-GROUNO  < 1FROP* 1)  AND  GROUND-TO-GRDUNO 

( I PROP*  2)  CJNUlTIUNS. 

NOTE  I  AkuAYa  SPL  A  (  6,24) - -  C  A  <  6)  ArtE  EQUIVALENT  TO  $R(  6,33)  IN 

The  MAIN  QECR.  THESE  hRRAYS  CONTAIN  THE  MEAN  OAT 4  IFOR  EACH 
POWER  SETTING)  PRINTED  ON  PAGE  *G*. 

NUT  E  t  ARRAYS  SPlX(22,24) - -  S  ELX  1 22)  ARE  THE  SINGLE  EVENT  NOISE 

OATA  FOR  22  DISTANCES  PRINTED  ON  PAGES  *H*,  *1*,  *L*  ANO  *H * 
FOk.  IPRh=2  (1PRR=2  ONLY  WHEN  NP=0  ANO  IPR*1  ON  THE  CODE  SHEET) 
THE  PHLTX,  PNLX  >  SELX  OATA  ARE  STORED  AT  THE  REFERENCE 
AIxSf-EEO.  THE  EPNLX,  SE.TX,  ANO  SELX  OATA  STORE.,  IN  PROA 
ANO  PROG  ARE  ADJUSTED  TO  THE  PROGRAM  REFERENCE  AIRSPEED  (RV). 

NUTc I  EA(13,13)  IS  DEFINED  ONLY  FOR  FREQUENCIES  50  (B=l7>  TO  800  HZ 
(B-29)  AnJ  DISTANCES  400  FEET  TO  6300  FEET. 

EA*0  FOR  SX  (I) <400  FEET 
EA=EA(13,J)  FOR  SX(I)»  6300  FEET. 


□IHENSIOn  EA(13,13)  ,u2X(22) 

COMMON  I JNL , I 6NH ,L,SPLA(S,2.) , THETA (6) , 


016100 
016120 
•QI8I4O 
016160 
016130 
3 182  0  Q 
318220 
018240 
016260 
016260 
016300 
016320 
016340 
016360 
!  016380 

018400 

018420 

016440 

018460 

018430 

018500 

018520 

018540 

018560 

•018560 

018600 

016620 


1  PNlA(  o),PNLTA<  6) , AL A (  6),AlTA(  o),EPNLA(  6>,SELA(  a),SELT4(  o),018o40 

2  C A (  6),  NR (  6) ,ISPL (24) ,SP.X (22,24) ,  318660 

3  PNLTX(22) ,PN^X(22) ,ALTX(22) ,ALX(22I , EPNlX (22) ,SELTX(22) , SELX (22)  018680 

4  , PROA ( 22 , 6, 7 ) ,PROG ( 22 , o, 7 )  018700 

COMMON  /COMPC/IV  (6) ,  IMS ( s )  ,=>  (2,6)  ,0PC(6)  ,OPCC(12)  ,PS(2,6)  ,PSC(12)  ,  J 18720 

1  PSU,PSIF(6) >  PSCF (12) ,IREQC(3,12) ,VX(l2> ,SX(22) ,ATNC(24)  , ATNR( 24) ,  01874  0 


2  OEln, 

IPTC, 

IPROP, 

M£AS(3) 

,QP:R(12) ,PC ( 2, 12) 

018760 

DATA  EA/ 

0.00, 

0.  00, 

0.  00  , 

0 .  U  0 , 

0.03, 

0.00, 

0.00, 

1.09, 

2. o 1 ,  018780 

1  4.33, 

6.34 

,10.04 

,13.00, 

0  .0  0 

,  0.00 

,  0.00, 

Ci.  00 

,  0  .  U  0 , 

0.  00, 

1.16,018600 

2  2.6o, 

4.57 

,  o.94 

,  9.93, 

12.s3 

,15.00 

,  0.00, 

0.00 

,  Q. Q0 , 

0.00, 

.00,016620 

3  1.04, 

2.34 

,  3.96 

,  o. 05, 

s.5  5 

,11.92 

,14.53, 

17.0  0 

,  0.00, 

0.  00, 

0.00, 018840 

4  .  3fc , 

1.25 

,  2.35 

,  3.74, 

5  .. 8 

,  7.66 

,10.44, 

13.92 

, 16.53, 

19.00, 

0.00, 016So  0 

5  .13, 

.  66 

,  1.36 

,  2.25, 

3.35 

,  4. 7h 

,  6. 48 , 

e.56 

,11.44, 

14.92, 

17 .53, 018660 

620.00, 

.19 

,  .63 

,  1.18, 

i.aa 

,  2.75 

,  3.0 3 , 

5.24 

,  6.96, 

9.18, 

11.34,018900 

715.42, 

16.03 

,20.50 

,  .19, 

.6  3 

•  1.16 

,  1.66, 

2.73 

,  3.85, 

5.24, 

i.98, 018920 

o  9.16, 

11.94 

,15.42 

,16 .03, 

20.50 

,  0.00 

,  .  13 , 

•  feo 

,  1.36, 

2.25, 

3.35, J18340 

9  4.74, 

0*48 

,  o «od 

,11.44, 

14.92 

,17.53 

,20.00, 

0.00 

,  0.00, 

0.00, 

0.00,018960 

A  .15, 

1.02 

,  2.11 

,  3 .48 , 

5.21 

,  7.39 

, 10.14, 

13.64 

,17.00, 

0.00, 

0.00,018960 

□  0.00, 

0.00 

,  0.00 

,  0.00, 

0.00 

,  0.00 

,  1 . 4 1  , 

3.20 

,  5.43, 

o.26, 

11.00,019000 

C  0.0 C: 

0.  00 

,  0.00 

,  0.00, 

0.00 

,  0.00 

,  0.00, 

G.00 

,  >12, 

1.  03, 

2.17,019020 

D  3  .  o  2 , 

S  .•  0  0 

,  0.00 

,  0.00, 

0.00 

,  0.00 

,  0.00, 

0.00 

,  0.00, 

0.00, 

0.00,0 19040 

E  0.30, 

.  66 

,  1 .  o  6 

,  3.00, 

0.00 

,  0.00 

,  0.00, 

0.00 

,  0.00, 

0. 00, 

0.00,019060 

F  0.00, 

0.00 

,  0.00 

,  0  •  0  G , 

.39 

,  1.00/ 

019080 

JG  IS  THE 

GROUND-TO- 

GRO  UNO 

CORRECTION 

FACTOR 

USED 

INSTEAD 

OF 

019100 

CHANGING  EXCESS  ATTENUATION  DATA— ADuED  TO  THE  OMEGA  6  PROGRAM  ON  019120 

25  MAR  1975.  019140 

DATA  06/5.0/  019160 

HQ*FLOAT(IMS(L)>  019180 
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VK£F=FL0AT (IV (L)  ) 

C  AlGV  iS  FROM  OMEGA  &  PROGRAM. 

:  algv*io.o*alogio(vx(l)/vreF) 

-  VFCT  —  FACTOR  USED  TO  ADJUST  DATA  TO  THE  PROGRAM  REFERENCE 
AIRSPEED  (RV)I 
VFCT=1Q.O*ALOC10(RV/ VREF) 

IF  (IPROP-1)  10,10,40 

AIK-T O-GROUNO  DISTANCE  DATA  (IPROP-1). 

10  SNTh=SIN< TMETa (L) /57 .295631*1000.0 
IRC  IS  THE  INOEX  OF  THE  STANDARD  DISTANCE  SET ,  SX(I)f 
CORRESPONDING  TO  THE  REFERENCE  OI$TANCE,H0. 

IRO=0 

2b  DO  30  I -1 i 22 
03=SX (I) *0 .01 

IF  (HO  .G£.  ( SX ( I ) -D  3)  .AND.  HO  .LE.  <SX(I)*03)>  1*0=1 
01=20. 0*ALOG10(SX(I) /HO) 

02  X ( I) =  0. 5=01 -AL  G  V 
02X( I) =0.3*01 
01«UELN-D1 
OO  25  J=I dNL , I 3NH 

02= ( SX (I) •ATNC(J) -H0*ATNR(  J) j/snth 
2  5  SPLXU,  J)  «SPLA(L,  J)-02*D1 

30  CONTINUE 

IF  (IRO  .kT.  1)  RETURN 
GO  TO  90 

GROUNO-TO-GROUNO  DISTANCE  OAT  A  (IPROP»2). 

THE  SPL X  OATA  WERE  OEFINEO  BT  THE  PREVIOUS  »IPROP«l*  AIR-T O-GROJNO 
°ASS« 

*0  OO  eO  J*l,13 
00  60  I =4 , 16 

60  SPLX(IfJ) =SPkX (I,J)-£A(I-3,J) 

DO  70  1=17,22 

70  SPLX(I, J) =SPLX(I, J)-EA(  13, J) 

60  CONTINUE 

OO  35  J=XBNk, I3NH 
00  3 b  1=1,22 

35  SPkX(I, J) «SPLX(I, JI-OG 
90  10=1 

label  150  loop  —  compute  the  requested  single  event  oata  for 

EACH  DISTANCE  I 

FOR  EPNLX  —  ALL  COMPUTATIONS  ARE  *EQUIRED? 

FOR  SELTX  -  ALL  COMPUTATIONS  EXCEPT  *PNLX»  ARE  REQUIRED? 

FOR  SELX  -  ONLT  *AlX*  COMPUT ATIONS  ARE  REQUIREO. 

OO  150  1=1,22 
IF  (MEAS(i))  *4,94,91 
CALL  SUBROUTINE  'CPNL'  TO  COMPJTE  PNLXCI) 

31  CALL  CPNL (1,10) 

IF  ( PNLX ( I) -3990.0)  95,92,92 

92  IF  (I  .LE.  2)  GO  TO  95 

IF  PNLX(I) >9990.0,  EXTRAPOLATE  PNLX(I)  FROM  PREVIOUS  TWO 
PNLX(l)  OATA  POINTS. 


0 192  0  0 
019220 
019240 
019260 
019230 
019300 
019320 
019340 
019350 
019330 
019400 
019420 
019440 
019460 
019430 
019500 
019520 
019540 
019560 
019530 
019600 
019620 
019640 
019660 
019630 
019700 
019720 
019740 
019760 
019730 
019800 
019620 
019640 
019360 
019680 
019900 
019920 
019940 
019960 
oioieo 
020000 
020020 
020040 
0200o0 
020030 
020100 
020120 
020140 
020160 
020130 
020200 
020220 
020240 
02 0260 
J202S0 


<»ot)<)  o  i>  o  o  on 


j 


PNLX  (I) *2.0*»NlX (1-1) -PNLX (I  -2) 

GO  TO  95 
i+  PNLX  (I) **959. 

GALL  iOenOUT INt  'CPTC'  TO  COMPOTE  TONE  CORRECTION  (PTC)  FOR  1 
SPECTRA  (OR  DISTANCE) . 

95  IF  (  MEA  $  ( l) ♦Nt AS ( 2) )  130,130,96 

93  call  optc<ptc,i,io) 

IF  (PnLX(I)-*99u.O)  100,120,120 
100  PnlTX(I) *PNLX (I) ♦PTC 

IF  (PNLTA(L>-*590.0>  110,125,125 
110  EPNlX(I)*EPNlA(L) ♦PULTX(I) -PNLIa(L)  ♦D2X(I> 

Go  TO  130 

120  PNLT X( I ) *9999 • 0 
125  EPNLX(I)*9999.3 

CALL  SUBROUTINE  ‘CAL*  TO  COMPJTE  ALX(I). 

130  CALL  CAL ( I , ID ) 

SELX(I) =SElA( L> *AlX( I) -ALA (.)  »02X(I) 

IF  (  MEaS  ( 1)  AREAS  (  2)  )  140,1*0,135 
135  ALTX <I) *ALX(I) *PTC 

SELTX(I)*SELTA<l)  ♦ALTX(U-ALTA(L)  ♦02X(I) 

♦♦♦«  SEE  COMMENT  LINES  BEFORE  LABEL  200  BELUH,  THET  EXPLAIN 
AR*AYS  *PROa*  And  'PROS*  USED  DELON) 

1*0  IF  (IPROP-1)  1*4,144,1*7 
STORE  AIR-TO-GROUND  DATA  <IPROP  =  l)) 

1*4  PROA  (I,k.,3)*S£LX(I)-VFCT 
GO  TO  150 

STORE  GROUND-TO-GROUMNO  OATA  (IPR0P«2)I 
1*7  PR0G(I,l,3)=SELX(I)-VFCT 
150  CONTINUE 

I  PTC  —  INDEX  OF  FREQUENCY  3AN0  HHICH  DETERMINED  THE  TONE  DC 
FOR  THE  REFERENCE  DISTANCE  SPECTRUM) 

1PTC*ISPL (IRO) 

FROM  HERE  TO  LABEL  200 - SMOOHInG  ROUTINE  FOR  AlTX(I),  PNLT) 

SELTX (1)  AnD  EPNLX(I) . 

IF  (MEAS(1)+M£AS(2>)  999,999,155 
155  Cl*SELTX(IRD) -SELX(IRO) 

C2=ALTX(IRO)-ALX(IRO) 

DO  220  131,22 

C3»  SElTX(I)-SELXII) 

IF  (1-14)  160 , lt>5 , 165 
loO  03*1.0 

GO  TO  160 

la5  IF  (I-lfc)  170,175,175 
170  03*0. 2* Fc OAT (18-1) 

GO  TO  1l0 
175  03*0.0 

Compute  smoothed  selTx  and  alTx) 

13  0  ScLTX(I)*SELX(I) a Cl*  03 
AlTX(I)*AlX(I) »C2*03 
IF  ( PNLX (I) -9990.0)  165,190,190 
COMPUTE  SMOOTHED  EPNLX  AND  PnlTX) 

135  PNLTX(I)*PNLX (I) »C2*03 

SMOOTHED  EPNLX*  UNSMOOHED  EFNwX  ♦  SMOOTHED  SELTX  -  UnSMODThE, 


020300 
020320 
020340 
THE  I-TH  3233o0 
02033  0 
020400 
020420 
0204*0 
020460 
020430 
020500 
020520 
0205*0 
020560 
020530 
020600 
020620 
0236*0 
020660 
020630 
020700 
020720 
020740 
02Q7o0 
02073C 

02oeoa 
020620 
020340 
020660 
ORR  ECU  ON  0  2  08  3  0 
020900 
020920 
0209*0 
X(I),  020960 

020980 
021000 
021020 
021040 
021060 
021030 
021100 
021120 
021143 
021160 
021180 
021200 
021220 
021240 
0212S3 
021230 
021300 
021320 
021340 
021360 
D  SELTX)  021330 


231 


OMf 


EPNLXU>»EPNi.X(I)  ♦Cl*D3-C3 
GO  TO  2 CO 

190  PNLT  X ( I ) *9559 . 0 
EPftlXt I >*9999.0 

APPLY  AlnSFEEO  ADJUSTMENT  FROM  INPUT  <IV(L)>  TO  PROGRAM  REFERENCE (RV> 
STORE  DAT*  FOR  PRINTOUT  OF  PROr ILE  DATASET  BY  SUBROUTINE  »PPFOAT» 
AnO/OR  FOR  UEtT  A“6  COMPUTATIONS  BY  SUBROUTINE  *  OELT  A6 • t 
200  IF  (lPROP-1)  210,210,215 
STORE  AIR-TO-GROUND  DATA  <IPROP*l) l 
210  PRuA(I,L,1>*EPULX<I) -WFCT 
PpiDA(I,L,2)*SE-TX(I)  -WFCT 
PROA (1,L,9>*PNLTX(I) 

PR0A<I,L,5)»PNtX(I) 

PROA  U,L,6)«ALTX(IJ 
PkJA(I,L,7)«ALX(I) 

GO  TO  220 

STORE  GROUND-TO-GROUND 


DATA  (IPR0P=2M 


215 


22  0 
999 


PROG (I ,L , 1) *£PNLX (I) -WFCT 
PROG<i,l,2)*$ELTX<I> -WFCT 
P*OG (1,*.,9)*PNLTX(I> 
PROG<I,l,S>*PNLX(I> 
PRQG(I,l,6)*ALTX(I) 

PROG  U,L,7)  *AlX(I) 

CONTINUE 

RETURN 

ENO 


021900 
021920 
021990 
0219S0 
021980 
021500 
021520 
0  215**  0 
021560 
321580 
021600 
021620 
021690 
021660 
021oS0 
021700 
021720 
021790 
021760 
021780 
021600 
021620 
021893 
021860 
021680 
021990 


232 


SUBROUTINE  CP«w<I,ID) 
DECK.  6  CPhl 


021970 
i)  219*0 


021980 

SUBROUTINE  CPNLlI.IO)  COMPUTES  PERCEIVED  NOICE  LEVEL  <Pnl>  USING  THE  322000 
•lETMOC  DESCkIwEO  In  FAk  PART  35  SECTION  836.2.  FUNCIION  -NOT  (SEE  022020 

deck  9)  is  usej  ro  compute  the  not  values.  0220-0 


PERTINENT  VARIABLES  USEJ  ST  CPnl  arei 


022020 

0220-0 

022060 

022090 

022100 


-  ARRAY  CONTAINING  SOUND  PRESSURE  LEVEl  DATA  IN  03  022130 

•  ARRAY  CONTAINING  NORMALIZED  SOUND  PRESSURE  lEVE.  OATA022120 

IN  33  3221-0 

-  PERCEIVED  NOISE  LEVEL  IN  PND3  322160 

•  PERCEIVED  NOISE  LEVEL  IN  PNJ6  COMPUTED  FROM  SPLA  322180 

•  INDEX  UF  SP.  SPECTRUM  FOR  HHICH  PNL  IS  del  MG  COMPUTEOO 2220 0 

-  IDENTIFIES  THE  SPL  DATA  USED  TO  COMPUTE  THE  PNLX  322220 

OR  PNLA  DATA.  IO»0-— SPL«»  ID*i— —SPlX.  0222-0 

0222o0 


PNL (I)  IS  ONLY  COMPUTED  *OR  BANOS  17  TO  -0. 

IF  I dl  AND  *sh  -RE  OUTSIDE  THIS  RANGE.  Changes  MUST  3 
maoe  j.n  this  subroutine  ro  limit  computations  to  this 


COMMON  I6nL,I3Mh,l,  S3LA(  6*2-1 ,Th£TA(  6)>PNlA(  a) 

1*  SPLX(22,2-),PNLTX( 22) *FNLX<22) 

FJ*0.15 

SUM-0 

AMX--10.0 

CO  oC  J-IdNL* IdNH 

JJ-J 

IF  (ID)  20.20,33 
20  SP-L-SPLA (I.JJ 
GO  TO  -0 

30  SPLe-SPL X  ( I ,  J ) 

MAXIMUM  SPL  IN  NOY  ALGORITHM  IS  150.0 
-0  IF  (SPLL.GT.  190.00031)  GO  TO  70 

USE  FUNCTION  FnOY  TO  lOMPUTE  NOY  VALUE  IFN)  FOR  SOUNO  P*ESS 
SPuL  and  mCUUSTEO  3 A NO  NUMBER  JJ. 

FN*FN0Y(5PLL,  JJ) 

MAXIMUM  PERMITTED  NOY  VALUE  IS  20-8.0 
IF  (Fn  .GT.  20-8. 0031)  Gw  TO  70 
LMX-AHAX1 (AMX.rN) 

SUM* SUM -Fn 
30  CONTINUE 

IF  (SUM  .L£.  0.3001)  GO  TD  70 
SUH*  (SUM-AMX) *FJ*AMX 

COMPUTE  PERCEIVED  NOISE  LEVEl  ( PNl)  FOR  THE  X-Trt  SPECTRUM. 
PNL*  -3.0*33. 3*ALOGlO<SJM) 

GO  TO  100 
7  3  PNL*  W99.0 


•*♦•*•*••*322300 

••022323 
••0223-u 
E  **022360 

RANGE.  **0223o0 
•*022-00 

*•♦**••*••022-20 
, DMY  Y ( 72 )  0  22--0 
322-60 
322-80 
022630 
022520 
3225-0 
0225oO 
022530 
022600 
022620 
0225-3 
022660 
322693 
022730 
URE  LEVEL  022720 
0227-3 
3227o0 
022790 
022830 
422820 

3228- 3 
022663 
022680 
022900 
322923 

3229- 3 
022960 
022940 
023000 


2 
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FUNCTION  FNOY(SPL,JJ)  023140 

JECK  9  FNOY  0  231o  0 

a23190 

023230 

FUNCTION  FNOY(SPL.JJ)  COMPUTES  THE  NOY  VALUE  FOR  A  GIVEN  aOUNJ  823220 

PnESSUrE  LEVEl  (SPL)  AND  1/3  OCTAvE  BANO  CEuT ER  FREQUENCY  <JJ>  USING  0232**0 
THE  MET  HOG  UESGRldEO  IN  ARP  t>65A.  (THIS  OIFFERS  FROM  THE  METHOD  0232&0 

JESCRldEO  IN  FAR  PART  36  SECTION  S36.7  IN  THAT  IT  COMPUTES  THE  NOY  023280 
VALUE  DOMN  TO  0.1  INSTEAD  OF  STOPPING  AT  1.0)  023330 

023320 

VARIABLES  REQUIRED  BY  FUNCTION  FNOY  AREl  023340 

SPL  -  SOUND  PRESSURE  LEVEl  IN  DB  023360 

JJ  -  ARRAY  INUEX  CORRESPONDING  TO  A  BANO  NUMBER  023380 

FL  -  ARRAY  CONTAINING  THE  3 AND  SOUND  PRESSURE  LEVELS  FROM  TABLE  023400 

II  OF  ARP  665A.  023420 

FN  -  ARRAY  CONTAINING  THE  RECIPROCALS  3F  THE  SLOPES  GIVEN  IN  023440 

TABLE  II  OF  ARP  36 SA  .  023460 

023430 

DIMENSION  FL<24t 5) ,FM(24,4)  023520 

OATA  FL/49 . • 44 .«39.i 34 ..30  « ,  27 . y  24 . y21.yl8.y5P 16. y 15 •,12»,9»,s*,  023540 

A4.  y5.yb.y  10. y 17. y  21.  y 55*  y  » 1.  y 46. y 42 ■ y  39*  ,36. y33.y30.y27. .5*25. t  023560 

d23.,21«,ld«,15.,  2* 14 «yl5.y 17 . y  23. y29. y  64. y60. y  56 . y 53 . y  9 1 . y48.y46«y  023530 
C»*4 . y  42 «  , 9*40  a  y  38. y 34 .y32.y30.y2*  29. i30.y31.y37.y41.ydl.01f35.38y  023600 

067. 3 2, 79. d5, 7 9. 7a, 75. 9o, 73. 96, 74. 91, 94. 63, 13*100.0,44.29,50.72,  023620 

E52.,51.,49.,47«,46«,  46. ,43. ,42. ,41. ,5*40., 36. y  34. , 32. ,30. ,2*29.,  02364  0 

F3u . , 31 . , 34 . , 3 7  •/  023660 

OATA  FM/0. 079520, 2*0  .068 16, 0 . 05964,  10*0. 053013 , 0 . 0530.0 , 2*0. 0530130 23630 
G, 2*0. 0477 12, 2* 0.0530 13, 6. 069 160, 0.979520,0.059640,2*0.056098,  023700 

HO.  1)52286,0.047534,2*0.0435  73,0.040221,0.037349,7*0.0346  59,0.04  02210237  20 
1,0.0 37 36  9, 4*  0.0  3  4  6  59  ,  2*  0.0  37  3  4  9  ,  0.0  4  3  5  7  3,0  .  0  4  3  4  7  6  ,  0  .  04  0  5  7  0  ,  0  2  37  4  0 

J2* 0.036631, 0.035 336, 2* 0.03 3333, 0.032051, 0.330675, o*0. 03 0103,  023760 

K7*  0. 0299o 0,2* 0.04228 5, 15*0 .030103,9*0.029960/  02378  0 

IF  (SPL  .LT.  FLtJJ.l))  GO  TO  2C  023600 

IF  (SPL  .GT.  1?Q. 0)  GO  TO  30  023820 

IF  (SPL  .&€.  FL ( J J, 1 )  .AND.  SP.  .LT.  FL(UU,2>>  GO  TO  40  023840 

IF  (SPL  .GE.  FL(JU,2>  .AND.  SPL  .LT.  FL(JJ,3>>  GO  TO  ?0  0236o0 

IF  (SPL  .GE.  FL(JJ,3>  .AND.  SPL  .LT.  FL(UJ,4)>  GO  TO  60  023680 

IF  (SPL  .GE.  Fl(JJ,4)  .AND.  SPl  .LE.  150.00001)  GO  TO  70  023900 

20  FNOY*0«  0  023920 

P.ETURN  02394  0 

30  FNUY«500l.0  0 239o0 

RETURN  023980 

40  FNOY»0.1*10.0**(FH(JJ,1)*(S3L-FL(JJ,1)))  024600 

RETURN  024020 

50  FNOY*10.Q** (FH(JJ,2) * (SPl-Fl ( JJ,  3)  )  >  024040 

RETURN  024060 

60  FNOY«10.0**(FM(JJ,3) *(SPL-FL ( JJ, 3) ) )  024060 

RETURN  024100 

70  FNOY«10.0**(FM(JJ,4) *(SPL-Ft (JJ,5)) >  024120 

RETURN  024140 

END  024160 
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SUBROUTINE  CPTC ( PTC, i , ID ) 
JECK  10  uPTC 


SUbnOUTlHE  CPTC(PTC,I,IO)  COMPUTES  THE  TOME  CORRECTION  FOR  THE 
I-TH  SPECTkJH  AS  DESCRIBED  IN  7  Ak  PART  3&  SECTION  B36.3. 


W  HERE.. 

PTC  -  TONE  COPRECTION  FOR  THE  I-TH  SPECTRUM  U  33 

i  -  index  of  array  fspl— specifies  spectrum  used  to 

COMPUTE  PTC. 

10  -  PROGRAM  FLAG  USED  TO  IDENTIFY  THE  SPL  DATA  FROM  WHICH 

PTC  IS  TO  BE  C OH PUT ED. _ 

10*0  --  COMPUTE  PTC  USING  SPLA, 

10=1  —  COMPUTE  pt;  using  splx. 

SPlA  -  AkrAY  CONTAINING  NORMALIZED  SOUNO  PRESSURE  LEVEL  DATA 

IN  03 

SPLX  -  ARRAY  CONTAINING  SOUNO  PRESSURE  LEVEL  OATA  IN  DB 

IPTC  -  ARRAY  CONTAINING  FREQUENCY  3A«0  INDEX  OF  F3P.  VA.JE 

USED  TO  COMPUTE  TONE  CORRECTION.  IPTC 
IS  ONLY  REQUIRED  FOR  THE  NORHALIZEO  DISTANCE. 

WITH  MIN On  CHANGES  THIS  ARRAY  COULD  BE  DELETED. 

THIS  'OMEGA  10'  PROGRAM  ASSUMES  THAT  ALL  MEAN  SPl(J>  DATA  POINTS  ARE 
DEFINED.  NO  CHECK  IS  MADE  IN  THIS  SUBROUTINE. 


NOTE!  F<24)  TO  S(24>  IN  BLANK  COMMON  3ElOW  CORRESPOND  TO  PART 
OF  ARRAY  PRUC (22,7,21  IN  THE  MAIN  DECK. 


02*130 
02*200 
02*220 
02*2*0 
024260 
02*290 
02*300 
02*320 
0243*0 
02*360 
02*390 
02*400 
024420 
0244*0 
02*460 
024*30 
02*S00 
02*620 
02*6*0 
024560 
0  2*5d  0 
0  24o  3  0 
02*620 
02*o40 
0  24Eofl 
024690 
024700 
024220 
024740 
024760 
02*730 
024900 
024620 
024940 
024960 
024990 
024900 
02*920 
0249*0 
024960 
024930 
025000 
025020 
025040 
025060 
025090 
025130 
025120 
0251*0 
025160 
025190 
025200 
025220 
0252*0 
025260 


IN  THIS  SUBROUTINE  I3L«17  CORRESPONDS  TO  IL=1  AND  I3H«*0  ** 
CORRESPONDS  TO  IH=2*.  I7  THIS  IS  CHANGED  IN  THE  PROGRAM,  ** 
THIS  SUBROUTINE  MUST  BE  CHANGED  ACCORDINGLY.  *♦ 
PTC  IS  ONLY  COMPUTED  FDR  BANDS  19  TO  40.  ** 
IF  I6L  AND  I3H  ARE  OUTSIDE  THIS  RANGE,  CHANGES  MUST  3E  *• 
MADE  IN  THIS  SUBROUTINE  TO  LIMIT  COMPUTATIONS  TO  THIS  RANGE.  ** 


01  he NS I Oh  ICT ( 2*) ,SPLP(24)  ,SPL<24> 

COMMON  IL,IH,l, SPLA (6,24) ,0MYY (601 , IPTC (24) , SPLX (22, 24) , DM (20 02) , 
1F(24),SPlPP(2hJ , SP (25) , S A ( 2* ) , S (24) 

EQUIVALENCE  (F(1),ICT(1)),  (SPLF(1)#SPLPP(1)) 

C*  0.  0 
PTC»0. 0 
IPTC (I)*0 
lLt*3 

AMXs-1000. 0 
IF  (IO)  370,370,395 

LABELS  370  TO  *20  — >  DETERMINE  THE  MAXIMUM  SPL  VALUE  AND  THE  ARRAY 
INuEX  OF  THIS  MAXIMUM  VALUE) 

370  OO  390  J= ILL • im 


236 


■y 
• •* 

» ' 

. 

— 

9 

SPL(  J»«SPLACI,  J) 

025230 

*  V 

IF  (SPl(U)-AMX)  390,375,375 

025300 

3/5  IL1*J 

025320 

AMXsSPl ( J) 

025340 

r-V 

390  CONTINUE 

025360 

GO  TO  <*30 

025330 

?  \i 

395  DO  -.20  U3Ill,  Irt 

0254  J  0 

kg 

SPL( J)*SPLX<I , J) 

025420 

1 

IF  (SPL  (  Jl  -AMX)  420,400,40.1 

02544  0 

400  II. Is J 

025460 

,  •  , 

AM  X*SPL (J) 

025460 

•  *.  • 

420  CONTINUE 

025500 

c 

l  AEsELa  430  TO  470  — »  DETERMINE  NUMBER  OF  CONSECUTIVE 

3ANOS  KITH 

025520 

* 

SPL»20  uB  ON  EACH  SIOE  OF  Tm£  »EAX  SPL « 

025540 

430  OO  440  J=lL 1 , I H 

025560 

m 

IH 1=  J 

025560 

m 

IF  (SPL(J)  .lT.  20.0)  GO  TO  4s0 

025600 

•*•*0  CONTINUE 

025620 

GO  TO  **60 

025640 

/ 

450  Irtl*lHl-l 

025660 

•;/ 

>,60  00  470  J3lLL ,  iLl 

025660 

lL2*lt 

025700 

\  4^ 

IF  (SPL (IL2)  .Li.  20.0)  GO  TO  430 

025720 

iit 

>,7  0  CONTINUE 

025740 

3 

GO  TO  490 

025760 

430  i.L2*IL2*l 

025730 

025600 

Il.2 - -  I HI  xS  THE  FREQUENCY  iNOEX  OVER  WHICH  TONE  CORRECTION  IS 

025620 

c 

COMPUTED.  ALL  SPc ( J) *2 0 . 0  L3  OVER  THIS  RANGE. 

025640 

**'.  C 

IF  (IH1-IL2-3)  <  1,  THERE  ARE  AT  HOST  NINE  GOOD  FSPl  VALUES  IN  THE 

025660 

L  *  -* 

SPECTRUM?  THUS  PTC=0.  IN  THIS  PROGRAM  10  GOOD  BANOS  ARE 

REQUIRED. 

025660 

■ 

Mi 

025900 

* 

490  IF  (1H1-IL2-3)  220,220,3 

025920 

4, 

5  IF  (IL2  .LT.  3)  IL2=3 

025940 

IL2  ANU  IH1  ARE  THE  INDICES  3F  THE  FIRST  AND  LAST  GOOD 

S3'.  value  in 

025960 

y  c 

THE  SPECTRUM. 

025960 

'  N 

SUL2)  *0 

026000 

,>• 

ICT (IL2)*0 

026020 

FROM  HERE  TO  LA3EL  40  CORRESPONDS  TO  STEPS  1,  2  AND  3  IN  SECTION 

026040 

■ 

336.3. 

026060 

pp 

IL3*Il241 

026080 

r**' 

1L1»  IL3  ♦  1 

026100 

ICT ( Il3 ) *  0 

026120 

S(IL3)*SPL(lu3)-SPL(IL2) 

Q2d140 

C-  * 

compute  spl  Changes  (slopes)  avo  set  ict(j)  flag. 

026160 

*  •> 

-  w 

I CT ( J) a  1  CORRESPONDS  TO  ENC1EC.ED  SPL  IN  'FAR  PART  36'. 

026160 

r  / 

00  40  J*lkl,lHl 

0262Q0 

U 

ICT  (  J)  s  0 

026220 

- 

S(J)=SPL(J)-SPL(J-i) 

026240 

s,  _ 

10  IF  (ABS(S(J)-S(J-D)  -5.0)  40,40,20 

026260 

i- 

20  IF  (S(J)  .CT.  0.0  .AND.  S ( J)  .GT.  S(J*1))  GO  TO  30 

026260 

-** 

i**. 

xf  (S(J)  .LE.  0.0  .AND.  S(J-l)  .GT.  0.0)  ICT(J-1)«1 

026300 

GO  TO  40 

026320 

t  *7 

30  ICT ( J)  »1 

026340 

I 

i  n 

40  CONTINUE 

026360 

i 

* 

;  / 

237 

3| 

— 

L8  -*»  -'■  -  ■»  -«■ 

—  -  —  J  —A  -- 

FkOM  HERE  TO  2  tlNES  AF  T  ER  i  A  BE  L  fO  CORRESPONDS  TO  STEPS  4  AND  5  026380 

IN  SECTION  33o.3.  026400 

SPLP(IL2)*SPl(IL2)  026420 

OO  80  J»IL5,IH1  0  264* 0 

IF  (ICT(J)J  50,60,60  0  26*6 0 

50  SPLP <J) *SPL < J)  0 2o4d  0 

GO  TO  30  0 26? 0  0 

90  IF  (J  .EQ.  IM1)  GO  TO  70  026520 

FOR  FLAGGED  SPL,  COMPUTE  AVERAGE  OF  SPl  BEFORE  AMO  AFTER t  026540 

SPLP (J) =0.6* (SPL < J-l) *SP. <  J*l)>  0  26560 


GO  TO  80  026580 

70  SPLP  (J)  *SPL(  J-l)  ♦  SU-l)  026600 

Compute  new  slope  <S'i  —  step  51  026620 

80  SP( J»=SPlP< J) -SPLP(J-l)  026640 

SP(IL2) =SP (IL3)  026660 

SP(IH1*1) «SP(IH1)  0  2o6o  0 

FROM  HERE  TO  lABEw  210  CORRESPONDS  TO  STEPa  6  TO  10  IN  SECTION  B36. 31025700 
FIRST  SPk • *»INITIAL  SPL I  02o720 

SPLPP(IL2J*SPL  (IL2)  026740 

OO  210  J3lL2,IHl  026760 

IF  ( J-Ihl)  90,100,100  025780 

COMPUTE  AVERAGE  SLOPE—  STEP  61  026800 

90  SA(J)*(SP(J)*SP(J*1) ♦SP(J»2I J/3.0  026820 

400  AVEPaGE  Slope  TO  PREVIOUS  SPL" - STEP  7t  0268*0 

SPlPP«JA1)»SPLPP( J»*SA(J)  0268u0 

FIJI  IS  THE  SOUNO  PRESSURE  LEVEL  DIFFERENCE  (STEP  8) $  IF  r(j>  <  3,  026880 

TONE  CORRECTION  IS  ZERO.  026900 

lJu  F< JJ «SPL( J) -SPLPP(J)  026920 

IF  <F(J)-3.0J  210,110,110  026940 

110  IF  (J  »G£ •  11  .ANO.  J  .LE.  21)  GO  TO  140  0269o0 

DETERMINE  *C*  FOR  FREQUENCIES  50  TO  400  HZ  ANO  5300  TO  10000  HZi  026980 
IF  (F(J>-20.0)  120,130,130  027000 

120  C»F(jJ/6.0  027020 

GO  TO  160  0270*0 

130  C»3. 3333333  0270o0 

GO  TO  lbO  027030 

DETERMINE  *C#  FOR  FREQUENCIES  500  TO  5000  MZ I  027100 

1*0  IF  (F(J)-20.0)  1*5,150,150  027120 

1*5  C*F(J)/3.0  0271*0 

GO  TO  160  027160 

150  C»o. 6064667  027180 

160  IF  (C-PTC)  210,210,170  027200 

170  PTC*C  027220 

IPTC (I) «J  0272*0 

210  CONTINUE  027260 

RETURN  027280 

220  CONTINUE  027330 

RETURN  027320 

ENO  0273*0 


SUBROUTINE  CAc(I,ID)  027360 

DECK  11  CAc  Q  27  33  3 

027420 

fHli  SU5R0UT I N£  COMPUTES  THE  A-HEIGHTlNG  OVERALw  SOUND  lEVEc.  027»tu 

027460 

HHEnE .  327430 

I  -  Index  of  ARRAY  FSPc — SPECIFIES  aPECTnUH  USED  TO  OOMPJTE  AL.  327500 

ID  -  IJCiiT  I F1ES  THE  S  P.  DATA  USED  TO  COMPUTE  1  HE  AlA  DA  Acx  OATA027620 

10*0  --  USE  SPLA  OATA  0 276>»0 

:d«1  —  USE  SPtX  DATA  027560 

AL X  -  A*RAY  CONTAINING  THE  A-nEIGHTING  OVERALL  SOUND  .EVE).  IN  DSA027630 

AlA  >  AkkAY  CONTAINING  THE  A-mEIGHTING  uVERALL  SOUND  cEWEt  IN  C6A027600 

CUMPUTEj  FROM  SPLA  027520 

AM  -  ApikA  Y  CONTAINING  THE  A-NEIGHTInG  COEFFICIENTS  DEr  I  NED  327640 

ONLY  FOn.  3AN0S  I B k *  17  TO  IBH*c0  027650 

SPlx  -  ARRAY  WUNTAINING  SuUxD  FAESSURE  LEVEL  DATA  In  03  027630 

SPlA  -  AmmmY  CONTAINING  S3  HI ALlZED  SOUND  PRESSURE  LEvE.  DATA  IN  08027700 

027720 

DIMENSION  AH ( 2c)  027760 

COMMON  IL,IH,L,  SP.AT  o  , 24 ) , T HET A (  6) v PNL A (  6),*N.TA(  5),AL0277S0 

1 A (  o),GMYY(63),  SPLX(22, 24) ,FNLTX(22> ,PNLX<22) ,AcTX(22) ,ALX(22)  027300 

OATA  AM/-30.2,~26.2,~22.5, *1 9 • 1 , * 16 .1,~13.4,*1G.5,*0.5,~9»6,~4.3,  027620 
A“3.2,-l.J,*u.9»0.0,6.b»1.0»1.2,1.3, 1.2,1.0»0.5«-0.1»-l.l,-2.5/  027940 

Al*0.0  3  27  3o0 

IF  (ID)  20,23,5  027630 

5  DO  10  J*IL,IH  027903 

IF  (SPLX(I,J)  .GT.  5990.0)  DO  TO  10  027920 

AL*ML*lC.0«*((orLX(I,J)*AH(j))/10.0)  027540 

10  CONTINUE  0279o3 

GO  TO  c0  027930 

20  CO  25  J*I L ,  IH  029000 

25  AL*AL*10.0*»(<iPtA(i,J)*AHU))/10.0)  323020 

40  IF  (Ac  .LT.  0.000001)  DO  TO  45  029040 

AL*  10.J»ALOC10 (AD  023060 

Gu  TO  50  02o030 

49  Ac  *6599.0  029130 

50  IF  (IO)  90,60,70  029120 

90  AlA(1)*Al  329140 

RETURN  029160 

70  AlXU)*Ac  023190 

RETURN  329200 

END  029220 


SUoftOUTINE  OUTrlURD,  IPTC , S £V X , LFLG, IPF)  028240 

DECK  12  OUTH  028260 

*****328290 

028300 

SUBROUTINE  * OU I H  •  PRINTS  THE  SOL  AND  SINGLE  EVENT  NOISE  DATA  ON  028320 

PAGES  h,  I,  L  AND  H.  028340 

026363 

IRD  -  INOEX  OF  THE  PROFILE  DISTANCE  WHICH  IS  WITHIN  1  /.  DF  THE  028380 

REFERENCE  JasTANCE  FDR  THIS  POWER  SETTING.  028400 

iPTu  -  FREQUENCY  BAND  INOEX  OF  THE  SPL  VALUE  WHICH  DETER1INES  THE  028420 

TONE  CORRECTION  IN  THE  REFERENCE  SPECTRUH.  026440 

IFlG  -  PROGRAN  FLAG  WHICH  IS  GREATER  THAN  ZERO  WHEN  THE  POWER  SETTING028460 

EXTRAPOLATION  Ll HIT  WAS  EXCEEDEO.  Q2o4o0 

NOTES  ARRAY  SENX (22,7)  IS  E3UIV ALENT  TO  ARRAYS  028600 

P NL T X ( 2 2 )  — *  SELX(22l  IN  THE  HAIN  UECK.  028520 

(AtSO  SEE  SUBROUTINE  'ODIST*  FOR  ADDITIONAL  INFORHAT ION)  328540 

028550 

ARRAY  SENX ( 22 » 7) IS  A  DUHHY  VARIABLE  FOR  ARRAY  PROC (22 , 7, IPROP)  028580 
In  THE  HAIN  DECK.  028600 

028620 

j.PF=l  OR  2 - PRINT  BOTH  *S?L*  ANU  ‘SINGLE  EVENT*  DATA  PAGES  <NP  =  0  028640 

AND  IPR=1  ONLY).  028660 

IPFsS  Ok  4  -  PKiNT  ‘SINGLE  EVENT*  PAGE  *1*  OR  *H*  (IPr*1,  NP*0).  026680 

028700 


287 20 

DIMENSION  FHT 1(131 ,UM ( 71 , I SE QG < 7 1 ,ISEQF<7) ,FHT(27l , SENX (2 2, 7)  028740 

COMMON  IdNL.laNH,L,0MY(19S),NR(ol,ISPL(24>  ,  028760 

1  SPL  X( 22,24)  028780 

COMMON  /OUTC/ORO ( 43) , ISC ( 8 1 , IORU < 28) ,UAaH,uOT,X,oLK,OAT EN,PP(84,3) 028600 
EQUIVALENCE  ( FHT ( 1) , Fhf 1 ( 1 ) ) , (FHT (14) ,DM ( 1) )  028820 

OATA  F1/10H ( 1 0 X, 1H ( i  /,  e2/6HI 7 , 3X/  ,  F3/oH,1M)>  /,  FI f 6H, I J , IX/ 0 28840 

1,  Fa/3H  ,«•»/, IBtK/lH  /,  F0/7H,I3,1H</  028860 

2,  F4/6HI10,7X/,F5/3H,5XF,Fo/4H,  1 1 X/ , F77 8H , 5X , 1H >  > / , F9/5 H , F9 . 1/  0  288  8  0 

3,  A9/3M, A9/, ISEQO/4,3, 2, 1,7, 6, 5/, ISEQF73, 4,t>,7,9,10,12/  028900 

PRINT  HEADING  FOR  PAGE  *M*  OR  »L*  —  SPL  DATA.  028920 

IF  ( IPF-21  10,10,55  028940 

10  FMT ( 1) *F1  028960 

FHT ( 2) *F2  028980 

FHT  <  27 ) «F3  029000 

CALL  HEAD (7)  029020 

WRIT  E (6 , 2 100)  029040 

PRINT  COLUMN  HEADING  LINES!  0290o0 

WRIT E l 6 , 2  0 0 0)  ( J, Js 17,40)  029030 

WRIT E (6 ,2 10  0)  029100 

OO  50  1*1,22  029120 

IF  (I  .ED.  6  .UR.  I  . EQ.  18)  WRI TE( 6, 2 10 0 )  029140 

K*I *6  029160 

OO  40  U*a3Nl , I BNH  029180 

029200 

ALL  SPL X ( I , J )  DATA  <0  ARE  BLAhKEO  OUT  ON  PAGES  *H*  AND  *L*.  029220 

I  PTC  CONTAINS  THE  FREQUENCY  SAnO  INOEX  OF  THE  SPL  VALUE  USED  TO  029240 

COMPUTE  THE.  TONE  CORRECTION  FOR  THE  I-TH  DISTANCE.  029260 

029230 

IF  ( SPL X ( I , U) )  38 , 15 , 15  029300 

15  ISPL(U)«ICV(SPLX(I,J>)  029320 


l':’  ' 

r  -r-_  r;  v-  vi’i-  -  *’"•  •“  -w  --  ' -J  ■”  •  '  ~  ~  ”  w  '  - 

:* 

—4 

i 

' 

c . 

n 

4 

► '  » 

*  « 

< 

» 

3a  FM  T { J*2 ) =FI 

029340 

* 

GO  TO  40 

023363 

*• 

3  5  FMT( J»2)  =  FA 

023380 

■(  ■ 

ISP<.  (J) *IBLK 

029430 

40  CONTINUE 

029420 

— • 

■ 

W 

PRINT  TONE  CORRECTION  FLAG  WITH  DATA  FOR  I-tH  DISTANCE  AND 

J-Th  band. 029440 

IF  (I-IRD)  *5,42,45 

0  294t>0 

* .  \ 

■♦2  J*  IPTC 

0  29h80 

« 

IF  (ISPL(J)  . EQ.  I8LK)  GO  TO  45 

029500 

; 

IF  (J  .LT.  13 NL  .OK.  J  .IT.  IBNH)  GO  TO  45 

029520 

FMT ( J*2 ) =  FC 

029540 

•/ 

PRINT  *  SPL  *  DATA: 

029560 

j 

1 

4i  WKITElb.FMT)  IORO<K),ISPL 

029580 

50  CONTINUE 

023600 

WRITE (6,2100) 

029623 

*  ■ 

WRIT  £ (o , 2150) 

029640 

WRIT E(6>  2  20  0) 

0236o0 

, 

WRIT  E ( b  1 23 0  0) 

023680 

c 

PRINT  HEADING  FOR  PAGE  *1*  OR  *M*  -  SINGLE  EVENT  MEaSJRE 

DATA)  029700 

.  ■ 

55  CALL  HEAO(O) 

023720 

s 

WRIT £  !6 , 2 1QQ) 

023740 

-  - 

WRIT  E (6 1 3000) 

029760 

WRIT  E  (  b  1 2 1 0  0 ) 

029780 

.  * 

FNTl  (1) *F  1 

0238  00 

FMT1<2)=F4 

029820 

FiiT  1  (a)  *F5 

029040 

.  * 

FMTl(d)  *F 6 

0  298o0 

FM Tl  (11) =F5 

029880 

■M 

FMT 1 (13) =  F7 

029930 

A*" 

1 

=  ET  UP  ANO  PRINT  DATA  FOR  EACH  DISTANCE) 

029920 

CO  10g  1=1,22 

029940 

*-  . 

IF  (1  .  EQ.  b  .OR.  I  .EQ.  10)  WRITE (6, 2100) 

029960 

■■ 

K=I*b 

0  2948  0 

DO  40  J«l,7 

030000 

V 

JO  —  INuEX  OF  DATA  IN  ARRAY  '3ENX*  (PkINT  SEQUENCE  IS)  AL , 

ALT,  030020 

• 

c 

PNL,  PNcT,  SSL,  SELT,  ANO  EPNL)  ) 

030040 

1 

IF  (IPF-2)  950,590,560 

030060 

550  JO=ISEQD( J) 

030083 

GO  TO  570 

030100 

"  * 

9o  0  JD  =8  -  J 

030120 

jf  —  variable  format  index  jorresponoing  to  the  jd-tm  varialE)  030140 

5/0  JF=ISEQF(J) 

030160 

IF  ( SENX ( I , JJ) )  7 0,75,75 

030 lo  0 

"*  - 

70  DM(j)=aL< 

030200 

FMT1  ( JF ) = ab 

030220 

GO  TO  DO 

330240 

_ 

75  DM  (J)*SE.hX(1,  JO) 

030260 

FMT1(JF)=F9 

030260 

80  CONTINUE 

030300 

«/ 

PRINT  DATA  LINE) 

030320 

WRIT  E(6,FMT 1)  IORD (K ) , DM 

030340 

100  CONTINUE 

030360 

WRITE (6,2100) 

030360 

WRIT  E( b , 2 150) 

030400 

YT- 

k-; 

WRIT  E (0 ,2200) 

030420 

1 

IT 

.. 

\\ 

U 
f  •, 

241 

s 

►  .  .. 

1 

J 

HR*TE(o,225G> 

IF  (lFlG  .GT.  0)  WRITE  (6,2*0  0) 
RETURN 


2020  FORMAT (  10X,  9H<  SLANT,  39 X ,  Z1HFRE3UENC Y  BAND  NUMBER ,  38X.1H)/ 

1  10X,10h(  DISTANCE,  2414, 2H  )/  10X,9H(  (FEET),  9oX,H>) 

2100  FORMAT (  10X,  lri(,  lObX,lH>> 

2150  FORMAT (  10X,  1H(,  10 6 ( 1H-) ,1 H) ) 

22 J  0  FORMAT(12X,  50h»  EXTRAPOLATED  FROM  MEAN  VALUES  FOk  LEVEL  FLIGHTS. 
1) 

2250  FORMAT (12X,  4oH»*  BASED  ON  SMOOTHED  TONE  CORRECTION  FUNCTION.) 

230  0  FORMAT (12X,46rt<  BANC  WHICH  DETERMINES  THE  TONE  CORRECTION  (C) .  ) 
2400  FORMAT ( 12X,*NOTEI  POWER  SETTING  EXTRAPOLATION  LIMITED  3Y  AMRL/BBE, 
1  W-PAFB.*) 

3000  FORMAT*  10X,  loh(  SLANT  DISTANCE,  8X,  2MAL  ,bX,  brtALT**,  9X.3MP.NL, 

1  5X.6HPNLT**,  loX ,  3 MS El ,  5X ,  6HSELT**,  8X,  10HEPNL**  >✓ 

2  lOX, 1H( ,  5X ,  6H (FEET)  ,  SX,  2 <4X , 3 H (DBA ) ) ,  5X , 2 ( 3X, 6M ( PNDB) ) , 11X, 

3  2 ( b  X , 4  H  ( DB ) > ,  SX,  12M<  EPNDB)  )) 


0 30*4  0 
030460 
''30480 
030500 
030520 
0305*0 
030560 
030580 
0  3  06  u  0 
030620 
0306*0 
0  306o  0 
030680 
030700 
030/ 20 
030740 
030760 
030780 
030800 
030£20 
0308*0 
0  30c»0 


)  o  €  >  o  r> 


SUBROUT  IN  E  OUT  J(I  P  ,S>  ENX,  Ls  Li  ) 

DECK  13  OUTj  (PRINTS  PAGES  J,  K,  N  AND  0) 


033690 

330900 


0  SUBROUTINE  ‘OUTJ*  PRINT S  TAB  PLOTS  OF  SINGLE  EVENT  NOISE  DATA 
0  JN  PAGES  J,  <t  N  AND  O. 

0  NOTES  AKr.AY  SENX<22,7>  IS  EQJIVAlENT  TO  ARRAYS  PNLT  X  ( 22 ) - - 

D  SEw X  (22)  IN  SUBROUTINE  ‘CD1ST*  AND  IN  THt  MAIN  DESK 

C  <IP=1  AND  2) . 

0  SENX<22,7)  IS  A  DUMMY  VAR IA2LE  EQUIVALENT  TO  PROC ( 22 , 7 , IPROP 

D  IN  THE  ‘MAIN*  DEC  <  (I °=3  AND  A).  Tm£  SEQUENCE  OF  OATA  HERE  I 

C  EPnl\,  SEITX,  SELX,  PNtTX,  PNLX,  ALTX  AND  ALX. 

PLOT  ARKmY,  PP(84,3>,  IS  DEFINED  IN  SUBROUTINE  ‘IPA*. 

IP=1  - —  PLOT  PNLTX,  PNLX,  ALTX,  ANO  ALX  DATA  AT  REFERENCE  FILE 
POWER  SETTING  AND  AIRSPEED  (FOR  NP=0  AND  IPR*1  ONLY). 

-  IP=2 - PLOT  EPNLX,  SELTX,  ANO  SELX  OATA  AT  REFERENCE  FUE  POWER 

C  SETTING  AND  AIRSPEEO  (FOR  NP«0  ANO  IPR*1  ONLY) . 

D  1 P=3  -  PLOT  EPNLX,  SELTX,  AND  SELX  OATA  AT  REQUESTED  POWER 

C  SETTING  ANO  AIRSPEED  (IPR=1  ONLT) . 

:  ip=a  —  plot  pnltx,  pnlx,  a.tx,  and  alx  data  at  the  requested 

C  POWER  SETTING  ANO  AIRSPEED  <IPR=1  ONLY). 

C  IFLG  -  PkOGaAM  FLAG  WHj.Cm  IS  GREATER  THAN  ZERO  WHEN  THE  POWER  SETT 
C  EXTRAPOLATION  LIMIT  WAS  EXCEEDED. 


0  309 A3 
030960 
030930 
031000 
031020 
0  3  t0t0 
031060 
031030 
)  O311Q0 

S  031120 
0  31 ItO 
031160 
031130 
031200 
031220 
031240 
031260 
031280 
Q313QQ 
031320 
031343 
031360 
1NG 031330 
031400 
031420 


DIMENSION  PG< 41, TITLE <2, 2) ,3YM<7) ,VAR<7) , PB(83) ,P0(33) ,IX (4) , 

1  S A  VE( 4 )  ,PM(a3)  ,  SENX  ( 22 , 7)  ,?Av,<12) 

COMMON  IBNL,IBNH,L,0MY(139),NR(6) , ISRC (24) , 

1  SPL  X( 22 , 24) 

COMMON  /C0rtPC/iV(6> , IMS(b) ,P (2,6) ,DPC <6> , OPCC ( 12) ,PS (2,t>) ,PSD(12> , 

1  PSU ,PS IF (6) , PSCF (12) ,IRE3C( 3,12) , VX ( 12) , SXC 22) , ATNC ( 24) ,ATNR(2h) , 

2  DELN.IPTC, IPROP, MEAS(3) ,0P:r<12)  ,PC(2,12) 

COMMON  /  rtEAOC/  AC  ,  DA TE,  ACC  , I  PAGE ,  I VX,  IT EMP ,IRMUn , I VER,  P  V  ,  CRI , 

1  ET  (  2)  ,  OTC 

COMMON  /QUTC/ORU  ( *»3)  ,1  SC  <9  ) ,  IURO  <  28)  ,OASH  ,  DOT  ,  X,  BLK,  DATEN  ,PP  ( 34 , 3) 
EQUIVALENCE  ( PP( 2 , 1) »Pd( 1) ) , (PP (2,2) » PO< 1) ) , (PP (2,3) , Pi ( 1) ) 

DATA  PG/ 1HJ ,  1HK, 1HN, 1HO/ 

DATA  TITlE/IOH  AIR  TO  G,  63 ROUND  ,  1  ONGROUND  TO  ,  oHGRQUND/ 

DATA  SYM/lHP,lH*,lH*,lHA,lrtE,lHT,lHS/»  VAR/TH  *  PNLT ,  5H  *  PNL  » 

1  6H  *  ALT,  6H  =  Al,  7M  =  EPSu,  7H  s  SELT , 7 H  =  SEL  / 

2,P AG/lHl, 1H2, 1H3, 1H4 , 1H5, 1  MS , 1H7 , 1H6, 1H9, 2rtl 0 , 2H11, 2rt 12/ 

JS - SYMBOL  ARRAY  ADJUSTMENT  FACTOR  FOR  IP*3  PLOT  > 

JS*0 

IPP« 2* I  PROP 

if  (ip  .e*.  i  .or.  ip  .ea.  4)  ipp*ipp-i 

PRINT  ‘Iu‘  BluCK  IN  UPPER  RIGMT  CORNER  OF  EACH  PAGE! 

WRITE (6, 2000)  IVER»ACC ,OTD ,  OPCC (L) ,PV, DAT E, PG <1 PP) , PAG ( IPAGE) 

GO  TO  ( 10 , 20 , 25, 28) , IP 
10  Jl*t 
J2*4 

GO  TO  30 


021460 
031480 
031500 
031520 
0315*0 
031560 
031530 
031600 
031620 
031640 
0  316o0 
031630 
031700 
031720 
031740 
031760 
031730 
0  31?  0  0 
031620 
0318*0 
031860 
031850 
031900 
031920 
031940 
0319o0 
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20  Jl=3 
JZ-7 

GO  TO  30 
25  Jl=l 
J  2*3 
JS  *4 

GO  TO  30 
25  Jl=* 

J2*7 

JS«-3 

30  AmX=-10 00  *0 

DETERMINE  MAXIMUM  VALUE  FRO*  HE  FIRST  10  DISTANCES . 

OO  *0  1=1,10 
DO  40  J=J1,J2 

IF  (SENX(I,J)  .GT.  9950.0)  30  TO  *0 
AM  X=  AM  A  XI  (MMX,  SENXU  ,  J)  ) 

•*0  CONTINUE 

MX  *  (  (ICV(AMX)  *i)  /  10)  *10 
COMPUTE  ABSCISSA  SCALE  (ISC) I 
OO  50  1=1,9 
J*10-I 

50  I3C( J) =HX-10*I*10 
MX=MX+1 
MN«ISC(1)-1 
IOST«0 
LINE*0 

SET  UP  ANO  PRINT  PLOT  LINE  FOR  EACH  DISTANCE) 

OO  400  1=1,22 

.1  IS  THE  *IORU*  ORDINATE  ARRA  T  INCEXI 
M*I  *6 
K=0 

LIN£=LINE+1 

10ST»IDSr*l 

IOST  IS  USED  TO  SET  UP  THE  GRID  PATTERN  WHICH  REPEATS  EVERY  10 
DISTANCES 

lG=1  — ->  PRINTS  5  OOTS  PER  INCH  ON  TAB  PLOT. 
wG*2  — »  PRINTS  1  OOT  PER  INCH  ON  TAB  PLOT. 

LG=3  — ->  PRINTS  10  DASHES  PER  INCH  ON  THE  TAB  PLOT. 

GO  TO  (bO, 70, 55, 85, 25,35,35, 75,55,40) ,IOST 
60  IF  (1-1)  65,65,75 
j5  LG=3 

GO  TO  90 

7 O  IF  (1-22)  35 , o5» o5 
75  LG=2 

GO  TO  90 
30  IOST  =0 
35  LG»1 

SET  UP  PLOT  ARRAY  (PP)I 
30  OO  150  J=  J1 , J 2 

II *1 CV ( SENX ( I , J)  ) -MN  *2 

IF  (II  .LT.  2  .OR.  II  .GT.  34)  GO  TO  150 

IF  (PP(II,LG>  .EC.  BLK  .OR.  PPUI,lG>  .EC.  DOT)  GO  TO  110 
IF  (PP(II,lG)  .EC.  DASH)  CO  TO  110 
PP(II,LG) »X 
GO  TO  150 


0  313o  0 
032000 
032020 
0320*0 
032060 
132030 
032100 
032120 
032140 
032160 
032180 
032200 
032220 
3322*0 
032260 
032230 
032300 
032320 
0323*0 
032360 
032330 
032*00 
032*20 
0324*0 
032460 
032430 
032500 
032520 
032540 
032560 
032530 
032600 
032620 
0326*0 
032660 
032630 
032700 
032720 
032740 
032760 
032760 
032300 
032320 
0328*0 
032660 
032680 
032900 
032920 
0325*0 
032960 
032960 
033000 
033020 
033040 
033060 


oo  t> 


110  K=K*1 

IX  00=11 

SA  VE  (K)  *PP(II,4G) 

pp (I i*lgj =srn( j*js> 

150  CONTINUE 

FIRST  a  LINES  CONTAIN  'ID'  3L  OZ  K  In  UPPER  left  CORNER! 

IF  (LINE-9)  220.200,155 

LINES  36  TO  40  CONTAIN  THE  SYMBOL  LEGEND  IN  THE  LOWER  RIGHT 
15 5  IF  ( LINE- 35 )  200,270  ,260 

20  0  WRIT £(6,2600)  3RD ( LI NE) , IDRD (H) , ( PP ( J, LS)  , J=2, 64) 

210  lIn€=lINE*1 

WRITE(6,iuU3)  3RD (LI NE) 

GO  TO  320 

lABEL  220  TO  245  —  PRINT  ID  SLOCK  IN  UPPER  LEFT  CORNER  PkU 
LINES  TO  THE  RiGHT  OF  THE  ID  SLOCK. 

220  GO  TO  (230,235,240,245) , I3ST 

230  WRITElo ,2600)  ORO (lI NE) , IDRD ( h) , < PP ( J,LG> , J«2 , 64) 

WRIT  E  (6 , 3  OoO )  AC  ,  PC  <  1,0  ,  PC(  2,  L) 

GO  TO  300 

235  WRITE(  6, 2t>40)  IJRO(H)  ,PSC(.),PSU,(P3(J),J  =  4?,63) 
WR1T£(6,3030)  IVX 
GO  TO  308 

2*0  WRITE(6, 2620)  IORO(M) , IT  EH P, IRHUH, ( P3( J) , J«36 , 63) 

WRIT  E( 6 , 30*0 )  OELN 
GO  TO  300 

2*5  WRIT E ( 6 , 2b30)  I0RD (M) , (PS ( J) , J*36, 8 3) 

WRIT E ( 6 , 3 05 0)  IOER,ACl,OT: ,  OPCC < l) , OATEN , PV 
GO  TO  300 

LABEL  260  TO  290  —  PRInT  LEGSnQ  IN  LOWER  RIGHT  CORNER  PlJS 
LINES  TO  THE  LEFT  OF  THE  LEGEND. 

260  11= ( LINE-35) / 2 

GO  TO  (260,275,200,290) , II 
270  WRIT E( o ,26  0  0)  ORO (Li NE) , 10RC ( H> , PD 
JJ«J1*JS 

WRIT  E (o ,3010)  TITLE ( 1, IPRDP) ,TITUE(2,IPROP) 

GO  TO  300 
275  JJ=JJ*1 

260  WRITE ( 6 ,2610)  IORO(H) , (P6( J)  , J* 1 , 63 )  ,  S  YH  <  J  J) ,  Y  Ak  (  J  J)  ,  (PB 
13) 

JJ-JJ* 1 

IF  (JJ-J2-JS)  265,265,210 
265  WRIT£(6 , 302Q)  STM ( JJ ) , V AR( JJ ) 

GO  TO  3 0 0 

230  WRI TE ( 6 , 2600)  OkD (LINE) , IDP' ( M)  ,  PM 
GO  TO  320 
300  LINE  =Ll NE *1 
320  IF  (K)  400, *00, 330 
RECONSTRUCT  PLOT  ArRAY  (PP)  I 
330  OO  350  J=1»K 
II«IX(J) 

350  PPUI,LG)«SAV£(J) 

400  CONTINUE 

PRINT  ABSCISSA  SCALE  ANO  TIT. El 
WRI T £ ( fa  , 2 2 0 0 )  ISC 
IF  (LFLG  .GT.  0)  WRI TE(6,2400) 


033080 
033100 
033120 
033140 
033160 
033160 
033200 
CORNER  1  033220 

033240 
033260 
033280 
033300 
033320 
S  THE  PLOT 0 63340 
033360 
033380 
033400 
033420 
0334*0 
033460 
033480 
033500 
033520 
033540 
033560 
033583 
033600 
033620 
PLOT  0336*0 

033663 
033660 
033700 
033720 
033740 
033760 
033730 
033800 
( J) • J>60 , 8  Q33o20 
0  33640 
033860 
033880 
033900 
033920 
0339*0 
033960 
033930 
03*060 
034020 
03*0*0 
034060 
034080 
03*100 
034120 
6341*0 
034160 


245 


RETURN 

2000  FORMAT ( 1H 1/ 120X9HOHEGA  1U.  ,1 1// 12 OX , 1QHA/C  CODE t  ,A3/  12 

1  COO El  ,A1,A2/  120X, 13HPR0FILE  VERl  ,Al/ 

2  120X,6HDATE«  ,A10/  120X,6HPAGE  ,Al,A2//) 

2200  FORrtATdtX,  9X10/  5*X,17MNOISE  LEVEL  IN  OB  ) 

2430  FORMAT  </15X,*NOTE  I  POWER  3 ET  TING  EXTRAPOLATION  LIMITED  BV 
1,  H-PAFB.*) 

2600  FORMAT(13X,*l,I5,2H  (,63A1,1M)) 

2610  FORMAT  <14X,I5*2H  (,  b3Al,  *X , Al, A7, AX, 4A1 , 1MI ) 

2620  FORMAT  (14X, IS,  12H  <  .  TEMP  «,I3,  17N  F  REL  HUMID  * 

1  *dAi,lrt)) 

2630  FORMAT <1*X, IS,  4H  <  .  , 33X, 46A1, 1M) ) 

2b*0  FORMAT (1*X, la, *H  (  .  ,2X,  Ap ,1X, A6 , 28X, 35A1, 1H>) 

3000  FORMAT (13X,A1,6X, 1H( ,63X,1H> ) 

3010  FORMAT (20X,1H( ,b3X , AlO, Ab , *X , 1HJ  ) 

302  0  FORMAT UdX,lH < ,o7X, A 1, A7 , o X, 1H)) 

3030  FORMAT ( 20X,  1SH(  A1RS»EEJ  «,IW,  6H  KNOTS,  59X,lrt») 

30*0  FORMAT ( 20X,  15rt<  DELTA  N  »,F5.1,3rf  D3,61X,1H)) 

3050  FORMAT ( 20X, 15H (  IDENTl  10 . , II , 1H-, A3 , 1H-, At , A2, 1M-,  Ab 
1,51X,1M) ) 

3060  FORMAT ( 2JX , 1M ( , 4X ,A1 0 ,3X , 2 Al 0 , 4 3X, 1H) ) 

END 


034180 
OX, 10HOPS  03*2  0  0 
03*220 
0342*0 
03*260 
AMRL/BBE  0342o  0 
034300 
03*320 
034340 
,13, 2H  X, 034360 
0  343  dQ 
03*400 
03*420 
03*4*0 
034460 
Q344d  0 
03*500 
034520 
,  1H-,A1  03*5*0 
03*560 
034580 
034600 
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SUBROUTINE  PPF0AT<PR0C,LFL>»,C0m0,IJ>  33*620 

JECK  1*  PPFDAT  0  34640 

03*6o0 

334660 

SUeROUT InE  'PPFOAT*  WRITES  THE  EPNLX,  SELX  ANO  SELTX  PROFILE  OATASETS 0 347 0 0 
INCLUDING  lOMdECK  UNO  COMMENl  CAROS  ON  FILE  ' TAPE 3 * .  034720 

0  3*740 

HOT E J  Ak*AY  PrOC (22,7,2)  CONTAINS  THE  EPNLX,  SELTX,  SELX,  PNLTX,  034760 

PNLX,  AlTX,  AND  ALX  DATA  (PNLTX  — »  ALX  OATA  NOT  PJNCHED)  034780 

FOR  22  DISTANCES  FOR  AIR-TO-GROUND  ( PRDC  ( 22 , 7, 1) )  AND  FOR  03*630 

GROUND-TO-GROUND  (PRDC < 22 , 7 , 2 ) ) .  034820 

034640 

lFLG  -  PROGRAM  FLAG  WHICH  IS  GREATER  ThAN  ZERO  WHEN  THE  POWER  034660 

SETTING  EXTRAPOLATION  LIM1I  WAS  EXCEEDED.  034o80 

COMO  -  LAST  FIVE  CHARACTERS  OF  EACH  REFERENCE  FILE  COHOECK  NAME  FOR  034900 
THE  u-TH  POWER  SETTING.  33*920 

IJ  -  SEE  COMMENTS  IN  THE  SOURCE  LISTING  BELOW.  034940 

0  349o0 

DIMENSION  OKE  Y (3), CKEY(3), PR DC(22»7*2)»REF  (4), COMO (6)  035000 

COMMON  IBnL , IBNH , L  035020 

COMMON  /COMPC/ I V ( 6) , IMS ( 6) ,3(2,6) ,0PC(6) ,OPCC(12) , PS (2,6) ,PSC(12) ,035040 

1  PsU,PSIF(o) ,P3CF (12 ) , IREDCt 3, 12) , VX ( 12) , SX ( 22) , AINC ( 24) , ATNR ( 24) , 035060 

2  OEi.  N,  I  PTC ,  IPROP ,  MEA  S  <  3)  ,DPCR<12)  ,PC(2*12)  035060 

COMMON  /MEaDC/  AC,DATE,A:C,IPA3E,IVX,ITEMP,IRHUK,IVER,?V,CRI,  035100 

1  ET (2) , OTC  035120 

DATA  OREY/nMEPNL.aHsELT, 4HSEL  / , ORE Y/1NE , 1HS , 1HL/ , RN/HN/  035140 

1 , 6LK/1H  /  035160 

I MSR  — -  KEFErvENCE  DISTANCE  IN  FEET  WHICH  IS  ASSUMED  TO  BE  1000  FEET  335160 
FORMERLY  PRINTED  ON  THE  FIRST  'COMMENT*  CARD.  035200 

035220 

*IJ*  CONTAINS  the  INDEX  OF  1  HE  THIRO  REFERENCE  DATASET  (FDR  2-ND  035240 

SLOPE  lInE)  REQUIRED  WhEN  THE  REQUESTED  (PSC)  AnO  REFERENCE  Q352o0 

POWER  SETTINGS  ARE  ON  OPPOSITE  SIOES  OF  THE  APPROACH  POWER,  0352o0 

035300 

I REQC (3,12)  CONTAINS  INDICES  OF  REFERENCE  DATA  USED  TO  COMPUTE  035320 

THE  PROFILE  OATASET  —  REFERENCE  POINT  PLUS  SLOPE  POINTS  035340 

DEFINED  In  SUBROUTINE  '0ELT45*.  HERE  TO  LABEL  18  — >  SET  UP  ARRAY  035360 
*R£F*  FOR  PRINTING  THE  REFERENCE  ANO  SLOPE  'COMOECK'  NAMES  (PART  035383 

IN  *REF  •)  REQUIRED  TO  COMPUTE  THE  PROFILE  DATA  FOR  THE  L-Th  POWER  035400 

SETTING  (PRINTEQ  UN  THE  SECOND  ’COMMENT *  CARD  BELOW) l  035420 

IO=IhEQC<3,L>  035*40 

1C=IR£QC ( 1 ,L)  035*60 

J* J.REOC (2 , L )  035430 

IF  (ID)  9,10,15  035500 

5  IO=I ABS (10)  035520 

GO  TO  1»  0355*0 

10  11*1  33>560 

REF(i)*COMJ(IC)  035560 

GO  TO  16  035600 

15  H»3  035620 

kEF ( 1) =COMD (I j)  035640 

REF ( 2) *COMD ( I C  >  0356o0 

REF ( 3) *GOHO ( J)  035660 

IF  (IJ)  16,16,17  035730 
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17  11*4 

REF(4) *COMO (I J> 
lt>  00  100  J*  1 9 3 

IF  IMEAS!J))  100*100*20 
PRINT  'COMuECK*  LINE  I 

20  WRITE!  3*2100)  CKEY(J),ACC,  OPCC  <L  >  » QTC ,  P V,  CRI 
10*2 
IC  =  1 

PRINT  F1RS1  DATA  LINE  I 

WRITE (3 *2  000)  JKEY ( J )  • ACC*  0s  CC (L) ,01 C *  10  * <  PRDC (I ,  V,  1) *  I *1  *  6) *  AC, IC 
PRINT  THREE  OR  FOUR  *CG MMENT •  .INESI 

WRITE!  3 ,2  110)  mCC,OPCC(L) ,OIC,PV,CRI,IVER,DATE,AC,  IVX.ITEmP 
IjIRHUm 

WRITE! 3, 212  0)  ACC, OPCC IL) , 0T C, PV , CRI ,ET , I RN, ACC , REF  1 1)  ,1*1,11) 
WRITEI3 ,2130)  ACC, OPCC <L),OTC,PY, CRI, PC(1,L) ,PLI2,L)  ,P5C<L),PSU 
PRINT  FOURTH  •COMMENT'  WHEN  LFLG>0  —  EXTRAPOLATION  LIMIT  EXCEEDED  I 
IF  < i.FLG  .GT.  0)  WR1  TE ( 3 , 2 14  0)  ACC,  OPCC ! L )  ,OTC , PV, CRI 
IC*2 

PRINT  REMAINING  FIVE  DATA  L1NE5I 

Wk.IT £13 ,2010)  (PROCvI,J»i)  ,1*7,14)  , AC, IC 


IC*3 

WRIT E(3, 2010)  (PROC(I,J, 1)  ,  *ls , 22) , AC , IC 
10*1 
IC*-. 

WRITE  THE  THREE  GrOUNO-TO-GROUNO 


WRITE i 3,2000) 
1C*5 

WRIT  Ei 3 ,2  OlO) 


D- TO -GROUND  DATA  CAROS  I 

0LK,ACC,O°Co!L> , OTC, 10, ! PROC ( I , J,2) , I =1 ,6) , AC , IC 


WRIT  E( 3 ,2  OlO)  !PRDC(I,J,2)  ,1 *7 , 14) , AC, IC 
WRITE! 3,2010)  IPRUClI, J,2) ,1*15,22) ,AC 
100  CONTINUE 
RETURN 

20  0  0  FORMAT  lAo,2X,A3,A2,Al,7X,Il,6F6.1,A7,2X,Il> 

2010  FORMAT !bX,8F8.1,A7 ,  2  X ,  1 1 ) 

2100  FORMAT <5rt*C0M0ECK  , A  1, A3 , A  2, 3A1) 

2110  FORMAT (oHCOMMENT  ,A3,A2,3A1,  9H  OMEGA1 0. , I 1, IX , A1 0 , A7 , 1 0 X , 

113, bH  KTS  ,I3,4H  F  ,13,4m  PCT) 

2120  FORMAT  (OHCOMMENT  ,A3,A2,3A1,  1X,A1Q,A5,1X,4(1X,A1,A3,A5)  ) 

2130  FORMAT (8MCOMMENT  , A3  ,A2, 3» 1, IX , 2 A  10 ,3 ( IX , A6, IX , Ab, IX ) ) 

214  0  FORMAT  IbHCOMMENT  ,A3,A2,3A1,«  POWER  SETTING  EXTRAPOLATION  LIMITED 
1BY  AMRL/SBE,  W-PAF3. *) 

END 


035720 
035740 
035760 
035730 
035630 
035320 
035640 
035863 
035880 
.035930 
035920 
035940 
035960 
0  359o 0 
036030 
036020 
036040 
036060 
036080 
036100 
036123 
036140 
Q3oio0 
0  3b 16  0 
036230 
:  0  3622  0 
036240 
036260 
036230 
036300 
036320 
036340 
036360 
0  3o3o 3 
036400 
036423 
036440 
036460 
036483 
036500 
036520 


OUUOUl 


SUdKOUT  InE  TITPGIIPR) 

3  ECK  13  PRINT  TITlE  PAGE 


THIS  aUBROUTlNE  IS  CALL  EG  FROM  THE  ‘MAIN'  ROUTINE  TO  PRINT  THE  TITLE 
(COWER)  PACE  WHEN  PRINT  PARAMETER  *  I  PR  *  »  0. 

DIMENSION  PG ( 6) 

COMMON  /HEAOC/  AC,OATE,ACC,lPAGE,IVX,ITEMP,IRHUM,IWER,PV,CRI, 

1  E  T ( 2) *  OTC 

OATA  PG/lHM,9HIf J,<, 1HL,5HH,N,0,5H  I,K  ,  5H  M,0  / 

DATA  FL  Y/iJHFl  TOWER  / 

WRIT  £(6(4000) 

PRINT  TOP  60R0ER  LINES) 

WRITElb ,3010) 

DO  700  1-1,3 

7Ju  WRiT £(6,3030)  AC, AC, AC, AC, AS 
DO  720  1*1,11 
720  WRIT £(6,3020) 

WRlT£(6,3035) 

WRIT  £(6,3020) 

PRINT  AIRCRAFT  NAME  I 
WRITEU,  SOLO)  AC 
WRITElb, 3020) 

WRITE ( 6 , 3  04S ) 

WRITE (6 , J  02  0) 

WRITE (b , 3020) 

WRIT  £(6,3020) 

PRINT  ACOITIOwAL  TEST  IO  iNfORIATIONI 
WRIT  E (6 , 3050)  Fir 
740  WRIT  E 1 6 , 3  055)  ACC 
WRlTE(b , 307  0)  PV 
WRIT  E( 6 , 3  ObQ)  IWER 

FROM  HERE  to  t.A3EL  755  —  PRINT  TAdLE  OF  CONTENTSl 
WRITElb, 3100) 

WRITE(6 ,3120) 

WRITElb, 3130) 

IF  (IPR-1)  745,745,750 
74»  WRITE (6 , 3145)  PG(5) 


WR£TE(b ,3150) 

WRIT  E 1 6 , 3 145)  PG(6) 
GO  TO  755 

no  WRITE  (6 , 3  Ihu)  PG(1) 
WRIT  E( 6 ,3145)  P&(2) 
WR1TE(6, 3150) 

WRiTEi 6 , J 140)  PG ( 3) 
WRIT  E(b , 3145)  PG (4) 
755  OO  7bQ  1*1, a 
7b0  WRiT E (6 , 3 02 0 ) 

735  WRIT  E(b » 31»5)  DATE 
WRITE! b , 3020) 
WRITElb, 3020) 
WRITElb, JloO) 


0  36540 
036550 
‘036500 
036600 
0  3o62  0 
036640 
0  366o  0 
‘  0  366  8  0 
036730 
93o720 
036740 
036760 
036760 
036600 
036620 
036840 
036860 
036830 
036900 
036920 
036940 
036960 
036930 
037300 
037020 
037040 
037060 
037030 
037100 
037120 
037140 
037160 
037130 
037200 
037220 
037240 
037260 
037280 
037300 
037320 
037340 
037360 
0  3738  0 
037400 
037420 
037440 
0  37  4  6  0 
037480 
037500 
037520 
037540 
037560 
037580 
037600 
037620 
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00  770  1*1, 4  037o40 

T 70  WRIT£!6,3u2Q)  037oo0 

O  PRINT  BOTTOM  90RDER  LINES!  037660 

00  7o0  1*1,3  337700 

760  WRITE (6,3030)  AC, AC, At, AC,  A3  037720 

WRITE  <6 ,30 10)  0  377*0 

C  037760 

3000  FORMAT (1H1)  037760 

3010  FORMAT  (  1X,33  ( 4HUSAF  )  )  037600 

3020  FORMAT (  IX , 4HUSAF , 12hX , 4HU SA F )  037620 

3030  FORMAT  <  1X,4HUSAF,6X,4IA1Q,10H  AIRCRAFT ,  7X>  ,A10,4HUSAF )  037640 

3036  FORMAT (  IX ,*HUSAF  ,47 X,3lHN0l SE  PROJUCED  ON  THE  GROUNJ  3Y,46X,  037660 

1  4HUSAF )  037660 

30^0  FORMAT (  1X,4HUSAF , 53X.A10, 6H  AIRCRAFT  ,52X,4HUSAF)  037600 

3045  FORMAT (  1X.4HU3AF , 50 X , 24HD URING  FLIGHT  OPERATI ONS, BOX, 4HUS AF)  037920 

3050  FORMAT (  1X,4HUSAF ,52X,  A6.13H  MEASUREMENTS » 5 IX, hMUSAF)  037940 

3055  FOkHATI  1X,4HUSAF ,52X,14MAIR CRAFT  CODE t , 4X , A3 • 51 X, 4HUS AF)  037960 

3060  FORMAT!  1X,4HUSAF ,49  X, 26  HCOMPUT  £k  PROGRAM  OMEGA  10. , II, 48 X, 4HUSAF)  0 3793 0 
3070  FORMAT  ! IX , 4HU3AF , 62X , 16HPR0F ILE  VERSION! , 4X, A1 , 51X,4HUSAF )  036000 

3100  FORMAT (  IX ,4HUSAF , 97  X, 4HPA  GE , 23X ,4HUSAF)  036020 

3120  FORMAT  !  1X.4HUSAF , 23 X,  036040 

1  2 4H NORMALIZED  SPL  SPECTRUM  ,sl(lH.),  1HG , 25X , 4HUS AF)  036060 

3130  FORMAT l  IX.hHUSAF, 23 X,  sOHRUISE  LEVELS  AS  A  FUNCTION  OF  SLANT  DIST036060 
1ANCE  from  AIRCRAFT  ,43X,4HJSAF/  IX , 4HU3AF, 29X , 25HAIR-T0-GR0UN0  P036100 
2R0PAGATI0N  ,70X,4HUSAF)  036120 

3140  FORMAT!  IX, 4HUSAF , 35 X,  2 5H SO UNO  PRESSURE  LEVEL  SPECTRA  ,  34C1H.),  036140 

1  A1 , 26 X , 4HUS AF)  036160 

3149  FORMAT!  1 X.4MUSAF ,35X ,  2  2HSINGLE  EVENT  MEASURES  , 39 1 1H. 03818 0 

2),  A5 , 2 3 X , 4MUSA F)  036200 

3150  FORMAT!  IX, 4HUSAF , 26 X,  2oH GROUNO-TO-GROUNO  PROF AGATI ON,  a7X ,4HUSAF)  036220 

3195  FORMAT!  1 X, 4HUSAF ,90 X, A10 , 55 X, 4MUSAF)  038240 

3130  FORMAT!  IX, 4HUSAF , 25 X, 73MA  EROSPACE  MEOICkL  RE  S036260 

1EARCH  LABORATORY,  26X, 4HJSAF/  IX , 4HJS AF  ,25X ,  038260 

2  73HW  RIGHT-PATJ  ERSON  AIR  FORCE  BASE  038300 

3,  OHIO,  26X,4HUSAF)  038320 

C  038340 

RETURN  Q3o3o0 

END  0  3o3  6  0 
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SU3*0uTIN£  ScTjPJb  (I  REQ,  N,  HP,AC.C,ITP,  IAP,  I  HP)  038400 

DECK  lo  SETUPOo  038420 

•••••••••» o3$h^o 

038480 

THIS  SUBROUTINE  APPLIES  THE  *  QELTA“b  *  RULES  TO  DETERMINE  THE  038500 

REFERENCE  DATA  REQUIRED  TO  COMPUTE  THE  PROFILE  DATA  AT  THE  REQUESTED  038520 
OUTPUT  POWER  SETTING  ANU  AIRSPEED.  THE  ARRAY  INDICIES  OF  THE  038540 

REQUIRED  REFERENCE  FILE  OATA  ARE  STORED  IN  ARRAY  IREQC(3,o>  WHERE  0385B0 
IrEQC (1 ,  J)  AND  IREQC (2» J)  ARE  INuICIES  OF  MEASURE  AND  POWER  SETTING  038580 
J«TA  USED  TO  COMPUTE  SLOPES  A  NO  IREQC(3,J)  IS  THE  INDEX  OF  THE  BASE  038600 
POINT  IN  The  LINEAR  EQUATION,  ALL  FOR  THE  JTH  OUTPUT  POWER  SETTING  038620 
(OR  OPCC) .  038640 

IF  ALL  1KEQC (I , J )  FOR  1*1,3  ARE  ZERO,  THE  JTH  O PCD  DATA  ARE  NOT  Q38660 

COMPUTED.  IF  IrEQC ( 3, J ) < 0,  MEASURE  (SEL,  SELT  OR  EPNL)  DATA  MUST  BE  038E80 

CHECKED  (AT  1000  FEET  ONLY)  TO  DETERMINE  IF  MEmSURE  DATA  AT  THE  038200 

HIGHEST  RANKING  POWER  SETTING  ARE  GREATER  Than  THE  MEASURE  DATA  038720 

FOR  APPROACH  POWER;  IF  GREATER  NO  CORRECTION  WILL  BE  MADE  ANO  THE  0387*0 
ABSOLUTE  VAlUE  OF  IREQC (3,J>  CONTAINS  THE  REFERENCE  FILE  INDEX  OF  IME33876Q 
REQUIRED  MEASURE  OATA.  038730 

IF  IKEQC( 3 , U) *0  AND  IRE  DC ( 1 , J ) > 0 ,  NO  CORRECTION  WILL  BE  MAOE  AND  038800 

IREQC ( 1 ,U)  CONTAINS  THE  REFERENCE  FIlE  INDEX  OF  THE  REQUIRED  MEASURE  038820 
DATA.  038840 

038860 

M  -  NUMBER  OF  Input  OPC'S.  038880 

NP  — -  NUMBER  OF  UUTPUT  OPCC'S.  038900 

IV  — -  REFERENCE  AIRSPEED  FOR  UTH  OPC.  038*20 

IVX  —  OUTPUT  AIRSPEED  FOR  II  H  OPCC  (INTEGER  VALUE).  0389*0 

V X  — -  ARRAY  CONTAINING  OUTPUT  AIRSPEEO  IN  KNOTS.  038960 

JPP  — -  ARRAY  OF  OPERATION  »OW£R  CODE  DATA  FOR  ALL  DEFINED  OPC»S.  038990 

10PC  —  NUMBER  OF  OPERATION  POWER  COOES  IN  ARRAY  OPP.  939000 

OPC  — -  ARRAY  OF  INPUT  OPERATION  PONER  CODES  FROM  REFERENCE  FILE.  039020 

OPCC  —  ARRAY  OF  OUTPUT  OPERATION  POWER  COOES  REQUESTED  *OR  THIS  Q39040 

AIRCRAFT  run.  039060 

UPGR  —  AFRAY  UF  OPERATION  PUWER  CODES  (ONE  FOR  EAlm  OPCC)  WHICH  039030 
IDENTIFY  THE  REFERENCE  OATA  FROM  WHICH  THE  CORRESPONDING  939100 
OPCC  DATA  ARE  COMPUTED  ANJ  THE  OPERATION  POWER  DESCRIPTION  039120 
DEFINED.  039140 

PS  —  INPUT  POWER  SETTING  FDR  EACH  OPC  (ARRAY).  039160 

PSIF - INPUT  PUWER  SETTING  FDR  EACH  OPC  ( ARRA  Y— FLOAT  ING  POINT).  039180 

?SC  — -  OUTPUT  POWER  SETTING  *OR  EACH  OPCC  (ARRAY).  039200 

PSCF  -  OUTPUT  PONER  SETTING  ffOR  EACH  OPCC  ( ARRAY— FLOATI NG  POINT).  039220 

RANK  — -  ARRAY  GIVING  THE  RANK  OF  5  POWER  SETTINGS?  USED  TO  RANK  0392*0 

POWER  SETTINGS  LESS  THAN  APPROACH  POWER.  039260 

IREQ  — -  FLkG  ARRAY?  IREQ*1  WHEN  PEFERENCE  OATA  ARE  REQUIRED  FDR  039280 

UTH  OPC.  039300 

IREQC  —  SEE  ABOVE  OK  SUBROUTINE  «uElTA6*.  039320 

i tp  —  index  of  reference  takeoff  opc.  039340 

IAP  —  INDEX  OF  REFERENCE  APPROACH  OPC.  039360 

I  HP  — -  INDEX  OF  HIGHEST  RANKING  OPC  WITH  POWER  SETTING  LESS  THAN  039390 

POWER  SETTING  AT  APPROACH.  039430 

039420 

ITAHC  —  FLAG  EVALOATEO  AS  FOLLOWS)  039440 

.TahC*1  —  I  TP,  IAP  ANJ  I H®*  0  OR  AT  MOST  ONE  OF  THE  THREE  *1.  039460 
XTAHC*2 - I  TP  ANO  I AP  *1  •  039480 
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ITAHD=J 
I TmHC=4 


IAP  A  NU  I*P=1. 

ITP,  IAP  AMO  I HP  =  1 


DIMENSION  UPPl 2  0) , RANK  IV > , IREQ(6) 

COMMON  /COMPC/IV (6) , IMS (si  ,3 (2,6) ,OPC (6)  ,0PCC(12),P->(2,6>,PSC<12), 

1  PSU,PSIF(b),  PSCF  ( 12 ), IREQC (  3,  121  ,  3  X  ( 12)  ,  S  X(  22)  ,  ATNC  (  2  c )  ,  AT  NR  (  2*>  , 

2  OEL N, IPTC, I PROP , MEA S ( 3)  ,0PCR(12> ,PC( 2,12) 

DATA  RANK/2H13,  2H0b  ,2H0i»,  2H  07/ , MOPC/20/ 

1,  OPP/2H  , 2H  Q 1, 2H02 , 2HQ3, 2H  0*, 2H05 , 2H05 , 2HQ7 , 2H03 ,2HQ9 , 2H 10 , 2H1 1 , 

2  2H12,2H13,2H1*,2H15,2H16,  2H 17 , 2H16 , 2H197 
INaTIAlIIE  SUBROUTINE  PARAMETERS) 

IT  P*  0 
I  AP=  0 
IHP=0 
IRK3 10  0 
IT  AH  C=  1 
00  10  J»l,12 
IREQC ( 1 , J) =0 
IREQC (2 , J) *0 
10  IREQC(3,J)=0 

IF  (NP  .LT.  1)  DO  TO  500 

CONVERT  POWER  SETTING  OATA  FROM  *»*  FORMAT  TO  FLOATING  POINT  FORMAT 
(FOR  INPUT  ANO  OUTPUT  POWER  SETTINGS). 

OO  IS  I S1  ,N 
IREQ  (I )  *3 

15  oecooE(5,3aaa,PSii,in  psif(I) 

DO  20  1=1, NP 

20  OECOG£(5,3QOO,PSC(I) )  PSCF  (I) 

HERE  TO  LABEL  73)  EVALUATE  IT?,  IAP  AnO  IMP) 

00  30  U=1,N 

OPP  (*»)-•“  TAKEOFF  POWER) 

IF  (OPC(J)  .EQ.  OPP(4))  SO  TO  AO 
30  CONTINUE 
00  35  J= 1 , N 

OPP( 12) - MAX  RATED  THRUST?  0P®(15) - INTERMEDIATE  POWER  (MIL)) 

IF  (OPC(J)  .EQ.  UPP(  12 )  .UR.  OPC(U)  .EQ.  0PP(15))  GO  TO  >.0 
35  CONTINUE 
GO  TO  45 

I TP=  INDEX  JF  INPUT  TAKEOFF  POWER  OPC  OR  0PC*il  OR  In) 

•♦0  ITP*J 

■*5  00  50  J  =  1 , N 

APPROACH  PQWER---JPP (6)  1 

IF  (OPC(J)  .EQ.  QPP( 6) )  CJ  TO  55 
50  CONTINUE 
GO  TO  90 

IAP*  INDEX  OF  INPUT  APPROACH  POWER) 


039500 
039520 
039540 
039560 
039590 
039600 
039620 
0396*0 
039660 
039680 
0  397  0  0 
039720 
039740 
S39760 
039780 
039600 
039820 
0396*0 
039660 
039880 
039900 
039920 
039940 
039960 
039960 
0*0000 
040020 
3*00*0 
0  *0  do  0 
0*0080 
0*0130 
040120 
0*0140 
0*3160 
0*0180 
040200 
040220 
0*0240 
0*0260 
040280 
0*0300 
0*0320 
040340 
0*0360 
0*3330 
040400 
040420 
0434*0 


s5  IAP=J  3*0460 

DO  70  J=1,N  040430 

IF  CPSIF(J)  .GE.  PSI F ( I A *)  )  GO  TO  7  0  0*0530 

00  oO  IK*1,5  0*0520 

IF  (OPC(J)  .EQ.  RANK (IK))  GO  TO  65  0*0540 

sO  CONTINUE  3*0560 

GO  TO  70  040580 


r-rv- 

h" 

*'  '  •’ 

a 

a5  IF  (IK  .uT  .  IRK)  GO  TO  7  0 

0406  JO 

v 

1RK=IK 

0 -Oo  2  0 

*  ■- 

1  *  .  ■ 

I  HP*  INDEX  OF  HIGHEST  RANKIN«  JPC  WITH  POKER  SETTING  <  POWER 

0-06-Q 

c 

SETTING  AT  APPROACH! 

0  nObo  0 

1  ' .  * 

IHP«  J 

0-0680 

7 0  CONTINUE 

0-0700 

■ 

ASSUME  IAP»Q  HERE! 

040720 

a ET  Flag  ITmHCi 

0-37-0 

IF  ( IT  P  .GT.  0)  I  TAH  C=  2 

040760 

IF  (IrtP  .GT.  3!  IT AHC=3 

040790 

IF  (1TP  .GT.  0  .And.  IhP  .  GT  .  U  ITAHC*- 

0-0600 

LAbEC  <*00  COOP!  ITERATE  FOR  EACH  OUTPUT  OPCCOi 

040620 

- 

90  DO  -.00  1-  1 ,  NP 

8-09-0 

i 

OO  95  J*1,N 

O-ObbO 

IF  (OPCrUi)  .ED.  0PC(U)J  SO  TO  130 

040630 

9»  CONTINUE 

048900 

: 

EhkOR  — OUTPjT  OPoC  CANNOT  BE  CJMPUfEU  BECAUSE  OPCR  Is  NOT  IN  THE 

040920 

- 

REFERS  CE  file. 

0-09-0 

GO  TO  365 

0-0960 

r.- 

115  1REQC ( 3,1) =-J 

0-0980 

118  IRE 3 ( 1 A F) *1 

0-1000 

% 

IREQ (I TP>  «1 

OHIO  2  0 

I*EQC(1,I)»IAP 

0-1 0- 0 

IREQC  ( 2 ,1 ) =ITP 

0H1QS0 

GO  TO  430 

041080 

* 

FLAG  INPUT  AS  REQUIRED  DATA! 

0H1100 

1 3  C  IREQ ( J) *1 

041120 

DEFINE  OUTPUT  OPERATION  POWER  DESCRIPTION  F*OH  OPCR TI ) =OPC ( J J 1 

0h11-0 

PC  (1,1) *P ( 1, J) 

041160 

1 

PC  <  2 ,1 )  *P  ( 2,  J) 

0h119  0 

ASSUME  PSIF-PSCF  AND  THUS  NO  OElTA“6  ADJUSTMENT  <G0  TO  360)! 

0-1200 

IF  (A3S( (PSIF ( J) -PSCF(I) ( /PSIF(J) )  .lT.  8.001)  GO  TO  360 

0-1220 

> , 

OO  135  11*2, MOPC 

0-1240 

:  * 

LABEL  375  BELOW  mPPlIES  TO  ERROR  FOR  OPC«#i , 0 2, 08 , 09, 10 , 17 , 1 8,  OR 

191041250 

*  «< 

ERnOK  —  OMIT  OPCC(I)  BECAUSE  REQUESTED  PSCF(I)  NUT  EQUAL  PSIFUM 

0-1280 

■* 

IF  (OPCK(l)  .ED.  OPP (II))  GO  TO  ( 375, 375 , 160 , 32s , 180 , 325 , 325 , 

041300 

1  375,375,375, 16Q.23C ,325, 160, 2E 3, 30 3, 375, 375,375) ,11-1 

041320 

135  CONTINUE 

0413-0 

DPCR(I)«OPC(J)*03  OR  11  OR  1- - TAKEOFF  t 

0H1360 

loO  IF  (IAP  ,uT.  0)  GO  TO  17  0 

0H1380 

•j 

ERROR—  NO  APPROACH  OAIA  AVAILABLE  FOR  INTERPOLATION  OF  OPC*03l 

3-1-00 

*„  ■ 

GO  TO  370 

0-1420 

170  IREQ  (I AP) « 1 

0414-0 

175  IrEQC (1,1) *1 A P 

0-1 4o  0 

IREQC ( 2 ,i ) »ITP 

0-1-80 

IREQC ( 3,1) sj 

0-1500 

•i 

GO  TO  403 

0-1520 

i  ■  > 

OPCR(I) «OPC( J)*05  -  APPROACH  POWER! 

0-16-0 

130  GO  TO  (373,165,190,200) ,ITAHC 

0-1560 

l ABEL  3701 

0-1560 

«v',  * 

ERROR—  NO  TAKEOFF  OATA  AVAILABLE  FOR  IN  f  ERPOL  AT  ION  OF  OPC*05I 

0-1600 

la5  iREQ  (ITP) *  1 

0-lo20 

GO  TO  l?» 

3-16-0 

1 

150  IREQ  (IMP) *1 

341660 

IREQC(l,l)*lHP 

041680 

* 

*'  *; 

»  ■  * 

jj 

■-  * 
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1R£QC(2,I)=IAP 
IR£QC( 3,1) =  -J 
GO  TO  *00 

23  0  IF  (PSCF(I)  .GE.  PSIF(IAP))  GO  TO  185 
GO  TO  190 

OPCR(I)*OPC(J)*12I 

!OKMAL  RATED  ThRUaT — PSCF(J)  HOST  3E  BETWEEN  APPROACH  ANJ  TAKEOFF 

POWER  FOP.  REFERENCE  FXlE  OAIAj 
230  IF  ( 1AP  .GT.  0  .AND.  XTP  . GT .  0)  GO  TO  2*0 

EknOR  —  INSUFFICIENT  DATA  AVAILABLE  FOR  INTERPOLATION  tTC.l 
GO  TO  370 

2*0  IF  (PSCFTI)  <uE.  PSIF(IAS))  GO  TO  250 

WARNING  HESS AGE  PRINTED  SECAJSE  OFCR*12  REFERENCE  POWER  SETTING  IS 

LESS  THAN  APPROACH  POWER  SETTING* 

WRITE(6,23u0)  OPCC(I),AC: 

250  1RE3C (3 , I ) *J 
GO  TO  118 

0PCk(I)=0PC(J)=15  -  STOL  TAKEOFF! 

11=17  -  STOL  APPROACH! 

280  11=17 

2u5  OO  270  JJ*1,N 

IF  (OPC(JJ)  .EC.  OPP  (ID  )  GO  TO  280 
270  CONTINUE 

ERROR  ---  EITHER  STO*  TAKEOFF  OR  APPROACH  OATA  HISSING,  THUS  CAN'T 
.INTERPOLATE  ETC.! 

GO  TO  370 
230  IREU ( JJ) =1 
IPEQC (3 , I ) =J 
IF  (ll-lo)  285,285,290 
285  IREaC(l,I)=J 
IREQC (2,1) = JJ 
GO  TO  *00 
290  IREUC(1,;>=JJ 
IREOC( 2 , I) =J 
GO  TO  *00 

OPCR(I) =OPC(J)*lo  -  STOL  APPROACH! 

11=16  —  STOL  TAKEOFF! 

300  Il*lb 

GO  TO  265 

OPCR(I)  =OPC(J)  =  0<»,  0b,  07,  OR  131 

LABEL  3701 

EkROk  -  INSUFFICIENT  DATA  AVAILABLE  FUR  INTERPOLATION  ETC.! 

32s  GO  TO  (37  0,330,340,350)  ,  IT  A-tC 
330  IREQC 1 3 , 1) = J 
GO  TO  llo 
3*0  1REQ  (I  AP)  =1 
GO  TO  ISO 

350  IF  (PaIF(J)  .GE.  PSIFUAP))  GO  TO  355 
GO  TO  3*0 

355  IF  (PaCF(I)  .GE.  PSIF(IAP))  GO  TO  330 
GO  TO  115 

CHECK  FOR  OPCR*  17,  18  OR  19  AnO  VX«IVI 
360  IF  (OPCR(I)  .NS.  OPP (18)  .ANO.  OPCR(I)  .Nt.  0PP119)  .AND. 

1  OPCR(I)  .NE.  OP* ( 20 ) )  GJ  TO  365 


0*1700 
0*1720 
0*17*3 
041760 
041780 
041600 
041820 
0*1640 
041660 
0*1680 
041900 
0*1920 
0419*3 
0419o3 
0*1960 
0*2000 
042020 
0*20*0 
042060 
0*2030 
042100 
042120 
042140 
042 Id  0 
0*2180 
042200 
0*2220 
0*22*0 
0*2260 
0*2260 
0*2300 
0*2320 
0423*0 
0*2350 
0*2380 
0*2*00 
0*2*20 
0*2*40 
J42460 
042430 
042500 
042520 
0*25*3 
042560 
0*2530 
042b  0 0 
042620 
0*2b*  0 
0*26 o 0 
042630 
0*2700 
0*2720 
0*27*0 
0*2760 
042730 


IF  (ICtfWXUt)  .EQ.  IV(J>)  CO  TO  3o5  042830 

ERRO-<  OMIT  OPCC  BECAUSE  \EQUESTEC  AIRSPEED  NOT  EQUAL  TO  REFERENCE0428 20 


AIRSPEED  AS  REQUIRED  FOR  OPCC*17,  lo  AND  19: 
GO  TO  3b  0 
3a5  I*EQC(1,I)=J 
GO  TO  4  0  3 

ef;rur  statements  ****•*••**•*»**« 


;  ERROR  ---  INSUFFICIENT  DATA  AVAILAsLE  for  interpolation  or 
;  extrapolation ;  oat«  for  opcc(I>  omitted  from  job: 

3/0  WRITE ( o  ,  2  0  00)  OPJC(I) 

GO  TO  395 

;  REQUEST  EJ  OUTPUT  POWER  SETTING  NOT  EQUAL  TO  T  Ht  REFERENCE  0  D  HER 
:  SETTING  AS  REQUIREO  FOr  THIS  OPCCl 

3/S  hRIT£(6,2100)  OFCC(I) 

GO  TO  395 

:  REQUESTED  OUTPUT  AIRSPEED  NOT  EQUAL  TO  THE  REFERENCE  AIRSPEEO  AS 

I  REQUIREO  FOR  THIS  OPCCS 
3d  0  WRIT  £(6,2200)  OPCC(I) 

GO  TO  395 

;  REQUESTED  REFERENCE  'OPCR'  IS  NOT  IN  THE  REFERENCE  FILE: 

335  WRIT E(o  ,2*00)  dPCC (I ) ,OPCR (I ) 

:  *  UF  P  < 1 )  *  IS  A  owANK  10  ChARACTER  FIELD: 

PC(1,I)-JPP(U 
PC (2,1) *OPP(i) 

395  Wt^IT E (b ,  25«G)  *CC 
<♦30  CUNIInUE 
RETURN 

;  when  np=o,  define  the  following  variables  and  compute  profile  data 

.  ANO  PRINTOUT  FOR  REFERENCE  FILE  DATA  WITH  REFERENCE  FILE  AIRSPEED 
:  and  power  setting; 

530  np=n 

PSU*PS(2,1) 

DO  510  1*1, NP 
PC(1,I)«PC1,I) 

PC  (2,1) *P ( 2, 1 ) 

PSC(I)*PS(1,I) 

OPCC (I) =OPC(I) 

OPCR (I ) *OPC (I ) 

IREQ(i) *1 
IREQC (1 , I ) *1 
510  VX(I)*1V(I> 

RETURN 

20 d  0  FORMAT (//2X, lu (1H*)  ,  •  ERROR  —OMI T  OPCC*  ',A 2/  2X, 'INSUFFICIENT 
1FERENCE  OATA  AVAILABLE  FDR  INTERPOLATION  OR  EXTRAPOLATION.') 

2130  FORMAT  (//2X, 10  (lrt*) ,  •  ERROR— OMIT  OPCC*  *,A2,*,  REFERENCE  POWER  50*3730 
1ETTING*/  2X, 'NOT  EQUAL  TO  REQUESTED  OUTPUT  POWER  SETTING  AS  REQUIR043720 
2ED  FOR  THIS  OPCC.*)  0*37*0 

2200  FORMAT (//2X,10  (1H*),  *  ERROr— OMIT  OPCC*  *,AZ,',  REFERENCE  AIRSFEE343760 
ID'/  2X ,  'NOT  EQUAL  TO  rEQjESTED  OUTPUT  AIRSPEED  AS  REQUIREO  FOR  THI0437dO 
2S  OPCC.*)  0*3800 

23 J  0  FORM AT(//2X,10(1H*),  *  WARNING REQUESTED  POWER  SETTING  FOR  OPCC04362Q 

1*',A2/  2X, 'SHOULD  BE  GREATER  THAN  REFERENCE  POWER  SETTING  FOR  APPR043840 
20ACH.  ACC*  *  ,  A3 )  043860 

2430  FORMAT  (  /  /  2  X ,  10  ( H*  )  ,  •  ERROR-QUIT  OPCC*  *,A2,',  REFERENCE  OPCR*  '  0*3660 


0*2840 
0*26o0 
0  42b  3  0 
042900 
0*2920 
042940 
0429a0 
042980 
343000 
3<«3  02  Q 
0*30*0 
04  30o0 
0*303  0 
343103 
3  *.3120 
0431*0 
043 lo  3 
043163 
0*3200 
043220 
3432  -.0 
043260 
043280 
0*3300 
0*»332  0 
043340 
0*3360 
0  >»33  8  0 
043400 
043420 
043**0 
0*34o0 
0*343  0 
043530 
0*3520 
0435*0 
043560 
043530 
043600 
043623 
0436*0 
RE  0  *»3o6  0 
0*3fc  30 
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SUBROUTINE  DELTAS  ( PS. 01 , PROC,  K ,  PSIF .  PSOF ,  I  REQC ,  LFlG,  VFCT  ,  lI M,  PSC 
1,  EXT  MX, ITP, IAP, IhP, I  REF) 

DECK  17  0ELTA6 


THIS  SUBROUTINE  APPLIES  THE  OE.TA-o  ALGORITHM  ANu  THE  AIRSPEEO 
ADJUSTMENT  TO  THE  SINGLE  EVENT  MEASURE  DATA  IN  ARRAY  PRDI. 

IT  IS  CALLED  ONE  TIME  FOR  EACH  MEASURE  BEING  COMPUTED. 

<  ---  INJEX  OF  OUTPUT  OPCC. 

VFCT  — -  AIRSPEED  Ao JUS TMENT  FACTOR  FOR  KTH  OPCC. 

3PC  -  ARRAY  OF  INPUT  OPERATION  POWER  CODES  FROM  REFERENCE  FIlE. 

JPCC  -  ARRAY  OF  OUTPUT  OPERATION  POWER  COOES  REQUESTED  FOR  THIS 

AIRCRAFT  RUN. 

PKOI  -  INPUT  MEASURE  DATA  FOR  EACH  DISTANCE  AND  OPC. 

“RCC  -  OUTPUT  MEASURE  DATA  FOR  EACH  OISTANCE  (COHPUTEO  HERE). 

PSC  — -  OUTPUT  POWER  SETTING  FOR  EACH  OPCC  (ARRAY). 

PSCF - OUTPUT  POWER  SETTING  r OR  EACH  OPCC  ( ARRAY  — FLOATI NG  POINT), 

PSIF  -  INPUT  POWER  SETTING  FOR  EACH  OPC  (ARRAY — FLOATING  POINT). 

EXTMX -  HAXIHUH  PERMITTED  EXTRAPOLATION  AT  THE  REFERENCE  DISTANCE. 

lIM  - EXTRAPOLATION  LIMIT  Ft.  AG  $  WHEN  *IH=1,  LIMIT  IS  CHECKED. 

ITP  -  INOEX  OF  REFERENCE  TAKEOFF  OPC. 

IAP  -  INOEX  OF  REFERENCE  APPROACH  OPC. 


On  398  0 
3  4*0  0  0 
0  *4  0  2  C 
>  0**Q*0 
’0**030 
044080 
0  4**  10  0 
0**12  0 
0441*0 
04*160 
1)44180 
044200 
044220 
04*240 
044260 
044280 
044300 
0*4320 
0443*0 
04*360 
04*380 
044400 
04*420 
04*4*0 


-  INOEX  OF  HIGHEST  RANKING  OPC  WITH  POWER  SETTING  „£SS  THAN'  •~T)**4oO 


POWEr  SETTING  AT  APPROACH. 

REF  —  FLAG  USED  TO  INDICATE  AuCITIONAL  SLOPE  REFERENCE  INDICES 
BECAUSE  THE  REFERENCE  ANC  REQUESTED  POWER  SETTINGS  ARE 
ON  DIFFERENT  SIDES  OF  APFROACh  POWER  (FOR  IREF»0, 

two  slope  lines  were  jsec;  applies  to  ranked  opc*s  only) « 

IREFSQ  ...  ONLY  ONE  SLOPE  lInE  REQUIRED. 

IREF=1  — -  SECOND  SLOPE  lInE  USING  REFERENCES  '1HP'  TO  'ZAP'. 
1REF=  2  —  3EC0N0  SLOPE  lInE  USInG  REFERENCES  ’IAP'  TO  'ITP'. 


0***3  0 
84*600 
04*520 
0**540 
044660 
044680 
044600 
0*4620 
044640 
0*4630 
0*40 80 
044700 
04*720 


--  FLAG  array  DEFINEu  FOR  The  KTH  OPCCI  0*4630 

(1)  IREQC(3,K) >0»  0*4b80 

1KEQC ( 1  »K)  ANO  iREQCt 2 ,  K)  CONTAIN  THE  INDEX  OF  INPUT  044700 

MEASURE  DATA  REQUIRED  TO  COMPUTE  SLOPE.  04*720 

IrEQC ( 3 « K)  IS  THE  INDEX  OF  THE  INPUT  MEASURE  DATA  TO  WHICH  0447*0 

ue l t a “ 6  algorithm  is  applied  (determined  from  opcr(k>>.  04*760 

(2)  IREQC (3  |K) s  01  0*4780 

NO  DElTA“S  ALGORIHM  IS  APPLIED  ANO  IREQu  (1,K)  CONTAINS  0*4600 
THE  INOEX  OF  THE  INPJT  MEASUF.E  DATA  SET  EQUAl  TD  THE  OUTPUT0**820 
MEASURE  DATA  (WITH  AIRSPEED  ADJUSTMENT).  0448*0 

(3)  IREQC  t  3  ,  K) =  0  ANO  IREQC(1,K)*0I  0**8o0 

NO  OUTPUT  DATA  ARE  COMPUTED  FOR  THE  KTm  OPCC,  LrLG(K)«-l.  0**880 

(4)  IREQC (3,K) <0«  044900 

CHECK  MEASURE  uAT 4  OF  HIGHEST  RACKING  POWER  SETTING  (INOEX  0*4920 

IREQC ( 1 ,K) >  ANO  APPRjACH  POWER  SETTING  (INDEX  I R EQC < 2, < > ) .  044940 
IF  APPROACH  DATA  ARE  GREATER  OR  EQUAL,  USE  ABiQwUTE  VALUE  0**960 
OF  IREQC (3 , K)  AS  IN  (1)  ABOVE.  04*9o0 

IF  APPROACH  IS  LESS,  SET  OUTPUT  MEASURE  DATA  EQUAL  TO  0*5000 

INPUT  MEASURE  DATA  WITH  INOEX  EQUAL  TO  ABSOLUTE  VALUE  045020 

OF  IrEQC ( 3 , K)  (WITH  AIRSPEEO  ADJUSTMENT).  045040 

0*5060 
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LFlG=  1 - EXTRAPOLATION  GREATER  THAN  *  EX  T  HX  *  03  FOR  KTH  OPCC. 

LFLG=-1  -  NO  MEASURE  DATA  KTH  OPCC. 

*FLG  =  0 - DATA  SHOULD  8£  G003. 


DIMENSION  PRDI (22 1 6)  , PROC ( 22) »PSIF<6> ,PSCF  (12) , IREQC (3, 12) ,PSC (12) 
STATEMENT  FUNCTION  USED  FOR  0  E.  T  A"6  INTERPOLATION! 

F<  Y2 ,Yl,Yd,X2, XI, X3, XC) *Y5h( Y2-Y 1 )* ( XC-X3) / ( X2-X1) 

LAS*  0 

Kl=IREOC ( 1 , K) 

K2=IREQC ( 2, K) 

K3=I REQC ( 3 » K) 

IF  ( IREF-1)  5 , 253 , 2b  0 
5  IF  (KB)  110,60,10 
10  IF  (LIM  .EO.  1)  GO  TO  150 
25  DO  NO  I >1,22 

APPLY  OElT A“6  ALGORITHM  ANO  OORREOT  FOR  AIRSPEED! 

PROC (I) a  FfPROI (I, K2) , PR OI  (I,K1) ,PR0I(i,K6) , PS  IF ( <2 ) , PS  IF (K1 ) , 
1PSIF (KB) ,PSCF (K) ) -VFCT 
*0  CONTINUE 
GO  TO  200 

60  IF  (Kl)  100,100,70 

APPLY  AIRSPEED  ADJUSTMENT  WITH  NO  DElTA“6  ADJUSTMENT! 

70  00  SO  1*1,22 
d  0  PR JC  (I ) *  PRJ1 (1,K1) -VFCT 
GO  TO  200 

LFlG=-1  -  NO  OATA  FOR  KTH  OPCC. 

130  lFLG*-1 
GO  TO  200 

CHECK  SINGLE  EVENT  MEASURE  DATA  AT  REFERENCE  DISTANCE  I  ASSUMED 
TO  BE  1000  FEET  —  1  =  8)  I 
110  1=8 

KK=IABS(KB) 

IF  (Kl  .EQ.  IAP)  GO  TO  130 
ASSUME  K1*IHP  AnO  PSIF(KK)  <  PSIFUAP)! 

IF  (PSCF(K)  .GT.  PSIF (IAP)  • AuC.  ITP  .GT.  0)  GO  TO  2o0 
IS  MEASURE  OATA  AT  HIGHEST  RANKING  POWER  SETTING  GREATER  THAN 
MEASURE  OATA  «T  APPROACH  (HIGHEST  RANKING  POWER  SETTING  IS  LESS  THAN 
POWER  SETTING  AT  APPROACH) I 

IF  ( PROI ( I , Kl )  .GT.  PRDI (I ,< 2) )  GO  TO  120 
K3=KK 
GO  TO  10 
120  K1«KK 

GO  TO  70 

<1=IAP,  K2=ITP,  PSIF (KK)  >  PSIF (IAP) I 
130  IF  (PSCF(K)  .LT.  PSIF(Kl))  GO  TO  250 
PSCF(K)  AND  PSIF  ( KK)  >  PSIFUAP)! 

K6*KK 
GO  TO  10 

CHECK  FOR  EXTRAPOLATION  GREATER  THAN  »EXTMX»  (5  OB)  08  ANO  RECOMPUTE 
THE  PSCF  POWER  SETTING  WHEN  THE  LIMIT  IS  EXCEEOEO,  ALSO  SET  LFLS*15 
CHECK  1000  FT.  (I«d)  AIR-TO-GROUND  OATA  ONLY; 

CHECK  ONLY  *SELX*  OATA  WHEN  40.  ARE  COMPUTED! 

ISO  1=8 


045080 
0*510  0 
045120 
0*5 1*0 
0*5160 
0*5160 
045200 
0*9220 
0*52*0 
945250 
3*5260 
0*5300 
045320 
0*5340 
049360 
045380 
9*5400 
045420 
0454*0 
045460 
0*5480 
0*5500 
0*5520 
045540 
045560 
045580 
045600 
045620 
0456*0 
045660 
049680 
045700 
049720 
0457*0 
0457b0 
0457  dO 
0*5800 
045620 
045840 
0*5So0 
0*5d80 
0*5900 
045920 
045940 
045960 
045980 
Q*o0 0  0 
046020 
046040 
046060 
0*6080 
0*6100 
04ol20 
046140 
046160 
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PRDCAsPROI (I, K3) 

1?2  EXTCK  =  F(PRuI(I,K2) ,  PROI (I,K1) , PRDCA, PSIF < K2) ,PSXF(K1) , 

IPS IF (KB) , PSCF (K) ) 

IF  (LAS-1)  155,330,430 

1»5  IF  (Kb  .EG.  K1  .OR.  KB  .EC.  K2)  GO  TO  ISO 
EXT* PRO I (I,KB)*EXTMX 
IF  (EXTCK  .GT.  EXT)  GO  TO  170 
EXT=PROI (I,K3) -EXTmX 
GO  TO  166 

160  EXT=P*DI (I,K2) »EXTMX 

IF  (EXTCK  .GT.  EXT)  GO  TO  17  0 
EXT=PkQI(I,K1)-EXTMX 
1o5  IF  (EXTCK  .lT.  EXT)  GO  TO  170 
GO  TO  25 

0  j£T  EXTRAPOLATION  LIMIT  FLAG  (LFLG)  AND  COMPUTE  NEW  PSCF(K) 

0  CORRESPONDING  TO  THE  £XTKAPO_ AT  ION  LIMIT?  ‘EXT*  IS  THE  ulMITING 
C  SELX  ETC.  VALUE) 

170  PRDCA*PkDI(I,KB) 

172  PSCF (K)*PSIF(K3) ♦(EXT-PRGCA) * ( PaIF( K2» -Pal F (Kl) ) / IPROIt I , K2> - 
1PROI  (I  i  Kl)  ) 

LFLG=  1 

:  REFORMAT  NEK  PSCF(K)  AND  STORE  IN  PSC(K)  FOR  PRINTING  LATER  IN  THE 
C  PROGRAM) 

IF  (PSCF(K)  .GT.  999.)  GO  TO  175 
IF.  (PSCF(K)  .lT.  10.0)  GO  TO  160 
ENCODE (5, 3060, PSC(K) )  PSCF  (K) 

IF  (LAo-1)  25,3*0, <*35 
175  I=ICV(PSCF(K) ) 

ENCODE (5, 3100, PSO (K) >  I 
IF  ( LAd-1)  25, 3*0, *35 
UO  ENCODE  ( 5 , 320  0  ,  PS  C  ( K)  )  PSCF(<) 

IF  (LA3-1)  25 , 3*0 , *35 
200  CONTINUE 
RETURN 


C  THE  REMAINDER  OF  THIS  SUBROUTINE  SETS  UP  AND  COMPUTES  THE  PROFILE 
C  DATA  FOR  POWER  SETTINGS  WHERE  THE  REFERENCE  (OPCR)  POWER  SETTING 
C  (PSIF(KB)  UR  PSIF(KK))  AND  THE  RE3UE3TE0  POWER  SETTING  (PSCF(K)) 

C  ARE  ON  OPPOSITE  SIDES  OF  THE  APPROACH  POWER  SETTING  (PSIF(IAP))) 


C  <1=IAP,  K2*ITP,  PilF (KK)»PSIF (LAP) ,  PSCF (K) <PSIF (I AP) 1 
250  LA 3*1 

GO  TO  270 

3  K1*IHP,  K2*l AP,  PSIF(KK) <PSIF  (IAP)  ANO  PSCF ( K) » PSI F  (I AP) ) 

250  LAB* 2 
270  1*6 

IF  (LIM  .£Q.  1)  GO  TO  (2 30 ,2 6 0 ) , L A3 

IF  (PRUKI.IHP)  .GT.  PROI  ( I,  IAP)  )  GO  TO  (  360 ,*7  0)  , LA3 
IF  ( LA3-1)  3*0 , 3*  0 ,**0 

230  IF  (PROI  (I, IMP)  .GT.  PRDKI,IAP))  GO  TO  *20 
C  COMPUTE  MEASURE  VALUE  AT  APPROACH  POWER) 

230  PRUC A*F (PRUl ( I , K2) ,PRDI(I, Kl) ,PROI(I,KK) ,PSIF(K2) ,PSIF(K1) , 
1  PSIF(KK) ,PSIF(IAP)) 


0*6 la  0 
046200 
3*b2  2  0 
3462*0 
0*62a0 
0*6280 
0*6300 
0*o3  2  0 
0463*0 
0*6350 
046330 
0*6400 
0*b420 
0*64*0 
046460 
0*6430 
046500 
0*o520 
0*6540 
046560 
046530 
0*6600 
046620 
0*od*0 
046660 
046680 
046700 
046720 
0467*0 
0*67o0 
0*6730 
0*6800 
0*6820 
0468*0 
04o8o0 
046830 
04O900 
0*6920 
0*6940 
0*6960 
046930 
0*7000 
0*7020 
0*70*0 
047060 
047030 
0*7100 
047120 
0*71*0 
047160 
0*7160 
0*7200 
0*7220 
047240 
0*7260 
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IF  (LAB-1)  305,309,415 

CHECK  EXTRAPOLATION  LIMIT  AT  APPROACH  POWER  I 
305  £XT*P*OI(I,KK) -EXTMX 

IF  (PROCA  .LE.  EXT)  GO  TO  315 
GO  TO  360— >  ZERO  SLOPE,  THJS  3ROC (I ) *PROCA  AT  PSIF(IAP)» 

IF  ( PRD1 ( I , IMP)  .GT.  PRDI (I, IAF) )  GO  TO  360 
K1  *1  HP 
K2*IAP 
KB»I AP 

CHECK  FINAL  EXTRAPOL  ATI  OH  LIMIT  AT  PSCF  ( K)  —LABEL  1521 
Go  TO  152 

EXTRAPOLATION  LIMIT  EXCEEDED  AT  PSIF(ImP),  COMPOTE  NEW  PSCF(K)t 
315  IRECC(3,K)«KK 
320  K8*KK 

MOT E l  NEW  PSCF (K)  WILL  9£  >  PSIF(IAP)t 
LAB*  0 
GO  TO  170 

CHECK  EXTRAPOLATION  LIMIT  AT  *PSCF(K)'I 
330  IF  (EXTCK  .LT.  EXT)  GO  TO  IT  2 
SET  INJICES  TO  COMPUTE  PROCA  AT  PSIF(IAP)  FOR  EACH  DISTANCE,  HEN 
PRuC(I)  AT  PSCF ( K)  1 
3* 0  KlaI HP 
K2=IAP 
KB*I7P 
•K3»IAP 
.  , iREF*l  . 

GO  TO  455 

MEASURE  VALUE  AT  IHP>  AT  IAB,  SET  UP  TO  COMPUTE  MEASURE  VALUE 
AT  PSIF (I AP) » 

3o  0  OM«PSIF<IAP) 

KB*KK 
IREF  *1 
GO  TO  **75 

CHECK  EXTRAPOLATION  LIMIT  AT  APPROACH  POWER  I 
•♦15  EXT*PROI  ( I ,  KK)  ♦EXT MX 

wABEL  320— »  OETERMINE  NEW  PSCF(K)  LE  PSIF(IAP)) 

IF  (PROCA  .GE.  EXT)  GO  TO  320 
GO  TO  **25 

420  PROC AxPROI ( I ,  KK) 

EXT*PROCA4EXTHX 

aET  INOIwES  TO  lHECK  FINAL  EXTRAPOLATION  LIMIT  AT  PSCFIOI 
425  K1«IAP 
K2*ITP 
K8*I AP 
GO  TO  152 

CHECK  EXTRAPOLATION  LIMIT  A!  •PSCF(K)*! 

430  IF  (EXTCK  .GT*  EXT)  GO  TO  172 
435  IF  (PkOKI.IhP)  *GT.  PROI(I,IAP))  GO  TO  470 
GO  TO  450 

SET  I NOICES  TO  COMPUTE  PROCA  AT  PSIF(IAP)  FOR  EACH  DISTANCE,  THEN 
COMPUTE  PROC(i)  AT  PSCF (K) J 
44O  K1*I AP 
K2»ITP 
KB*I  AP 
450  K3«IHP 


047230 
047300 
047320 
047340 
OhTIGO 
047300 
047400 
047420 
047440 
047460 
047430 
047500 
047520 
047540 
047560 
047530 
047600 
047620 
047640 
047660 
047630 
047700 
047720 
047740 
047760 
047780 
047800 
047820 
047840 
047660 
347880 
047900 
047920 
047940 
047960 
047930 
043000 
043020 
048040 
O4OO9Q 
043080 
043100 
048120 
043140 
043  Id  0 
043130 
0-.8200 
043220 
043240 
043260 
043230 
048300 
048320 
043340 
0483d 0 


iREF=2  0*83o0 

COMPUTE  MEASURE  VALUE  (PKD^A)  AT  APPROACH,  THEN  MEASURE  VALUE  048480 

(  PR.CC  <X  )  i  AT  PSCF{K)«  0*8420 

00  460  1  =  1,22  0464*0 

PR0CA=F<PR0IU,K3) ,PRGX(l, K3 ) ,F*OI(I.«> ,PSIF(KB) ,PSXF ( K3 ) , PSIF ( KKO 4846  0 
1) .PSIFIIAPJ)  048480 

P«0C(IJ=F(PR0X(I,K2)  tPRJI ( X, Kl) ,PRUCA,PSXF IK2) ,  048500 

1  PSIF(K11 ,PSIF(XAP),PSCF(<J) -VFCT  048520 

*o  0  CONTINUE  0*35*0 

RETURN  048560 

MEASURE  VALUE  AT  'IHP*  >  AT  'IAP',  SET  U»  TO  COMPUTE  MEASURE  VALUE  0*o580 
AT  PSCFIK)  WITH  REFERENCE  AT  *IAPM  0*8600 

*20  OnaPSCF <<1  048620 

K9*I AP  0486*0 

IREF  *2  048660 

COMPUTE  MEASURE  VALUE  AT  'P3IF<IAP>'  OR  'PSCFIIO'  FOR  CASES  HIT*  048680 

MEASURE  VALUE  AT  'IHP'  >  AT  'XAPM  0*87  00 

*75  DO  *os  1=1,22  048720 

PROC(i)  =F  (PKJI  ( I » ITP J , PRCI {I , I AP) , PRO! ( I , KK) , PSIF< IT P>  ,  PSIF < IAP)  ,  0*87*0 
1  PSIFtKB) ,DM) -VFCT  0*8760 

485  CONTINUE  0*8780 

RETURN  048600 

3  0  J  0  FORMAT ( F5 • 1 J  048820 

3200  FORMAT (F5. 2)  0*8640 

3100  FORMAT (  15)  048860 

END  048880 
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oo  n  o  n  ti  o  c>i>  o  owoooooooou 


SUd*OUTIN£  SUMRY  (IPU  ,C0MC,  EX  TMX ,  N  ,NP  ,  SOU*C  E,  LFL  G  ,  IREF  ,  I  T  P  ,  I A  P,  I  HP)  0489  3  0 
DECK  18  SUmRY  0,8920 

3,8940 
0,69o0 
048980 
349000 
049020 
0490,0 
0490&0 
0,9080 
049100 
049123 


ul HENS1 ON  VN(2),C0M0 (6) ,SDURCE(2,o> ,LFLG(12) ,IREF<12)  0,91,0 

COMMON  /COMPS /1 3  ( b ) » IMS ( 5)  , ?  ( 2  ,  o)  , OPC  ( 6)  ,  OPCC (12)  ,PS(2,6>  ,PSC(12)  .3,913  0 

1  PSU  ,PSIF (b) , PSCF (12 ) ,  IREQC ( 3,12) , VX ( 12) , S X t 22 ) ,ATNC (24) , ATNR12,) ,0,9130 

2  OELN.IPTC, IPROP ,  MEA  S  ( 3) , 3 PS R ( 12 ) , PC ( 2 , 12 )  049200 

COMMON  /HEaDC/  AS,OATE,A::,IPA&E,I3X,ITEMP,IRMUM,IVER,’V,CRI,  049220 

1  ET (2) , OT  C  049243 

OAT  A  YN/3HNO  , 3HYES/ ,BLK/1H  /,FL/1H</,FG/1H>/  0,9260 

PRINT  RUN  *IO'  INFORMATION)  349233 

MR1TE(6,2000)  AC  0,9300 

WRITE(o,2QlQ>  IWER, ACC, PV,CR1, DATE, OELN  349320 

PRINT  INPUT  HEADING  LINES  AND  SUMMARY  DATA  FOR  EACH  REFERENCE  FKE  3,9340 
OPERATION  POWER  COOE  (OPC) I  049330 

WRIT E (6 , 2020)  0,9330 

OO  50  L=1,N  049403 

53  WRITE(6,2030)  AC C,  CO MO (L) »  03C ( L) , PS ( 1 , L 1 ,PS(2,L) , I  V ( L) ,P(1,L) ,  049,20 

1P(2,L)  ,  SOURCE  (2,i.)  0,9440 

PRINT  OUTPUT  HEAOINS  lINES  AND  DATA  WHICH  APPLY  TO  All  OPSS'S)  049460 

WRIT  E( b ,20o0)  049,80 

WRIT E (6 , 2 070 )  YNCIPU*!)  049500 

WRIT  E(b , 2080)  EXTMX, ET  049520 

WRITE(6 ,2090)  HEMP,  IRHUM  049540 

WRIT  £(6,2110)  049560 

ICK1-0  049530 

ICK2*0  0,9600 

PRaNT  SUMMARY  OF  OUTPUT  DATA  FOR  EACH  REQUESTED  POWER  SETTING)  349620 

OO  200  I* 1, NP  0,9b, 0 

CHECK  EXTRAPOLATION  FLAG)  0,9ob0 

IF  (lFLG(I))  120,1,0,130  0,9C30 

NO  OUTPUT  DATA  COMPUTED  FOR  I  T9  OPCC)  0,9700 

120  WRIT£(b , 2120)  ACS , OPCC ( I) , OT C , P V ,CRI , OPCC ( 1) ,FG ,PSC( I) , PSU, VX( I )  049720 

l,PC(l,i) ,PC(2,I)  0497,0 

ICK1«1  049760 

GO  TO  200  0,9780 

EXTRAPulATaON  LIMIT  EXCEEDED  FOR  THE  ITH  OPCC)  0,9800 

130  ICK2»1  049820 

FLG»Fl  049640 

GO  TO  150  049660 

1,0  FlG*BLK  0,9680 

IREQC  CONTAINS  INDUIES  OF  REFERENCE  FILE  DATA  USED  AS  THE  REFERENCE  0,9900 
POINT  ANO  SLOPE  POINTS  IN  QE.TA“6  COMPUTATIONS  (SEE  SUo.  'OElTAo'))  0,9920 
150  IF  ( IREQC (3,1) )  170,160,180  0,9940 

S  II  IS  THE  REFERENCE  POINT  --  NO  SLOPE  IS  REQUIRED)  0,9950 

lbO  IlalREQC (1,1)  0,9960 


THIS  SUBROUTINE  IS  CALLED  FROM  THE  MAIN  ROUTINE  ONCE  PER  AIRCRAFT 
To  PRINT  A  SUMMARY  OF  THE  INPUT  ASu  OUTPUT  DATA  FOR  EACH  AIRCRAFT. 
IT  IS  CALLED  AT  THE  END  OF  EACH  AIRCRAFT  ANALYSIS. 

4ll  print  lines  ARE  LESS  Than  or  EQUAL  TO  34  characters  and  thus 
COULD  3E  PART  OF  THE  NOISENAS  'CHRONICLE*. 
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tv 

t:' 


l'.-- 


Pi 


t* 


r.  - 

f; 

»■ . 

ci 


WRIT  E ( 6(2120)  ACC,OPCC(I ) , UT C , F V , CrI , OPC C ( I ) , Fl &, PSC (I )  ,  PSU, VX(I), 350030 

1  Po(l,I)  ,PC  <2,  i.)  ,  Yn(  1)  ,  ACC  ,C0MC(I1)  050020 

GO  TO  200  3500*0 

II  iS  T He  REFERENCE  POINT!  NEGATIVE  VALUE  MEANS  THE  MEASURE  OATA  0530o0 

FOR  THE  HIGHEST  RANKING  POWER  SETTING  LESS  THAN  APPROACH  POWER  WAS  050080 
CHECKED!  050130 

170  I1=IA3S(IREQC  (  3,1)  )  050120 

GO  TO  lc5  0? 0 14 0 

:  II  IS  THE  REFERENCE  POINI.  12  AND  13  ARE  SLOPE  POINTS!  050160 

Id  0  U  =  IREQU3,I>  050130 

105  I2=IR£QC(1,I)  050200 

I3=1REQC 12,1)  050220 

WRITE <6, 2 120)  AOC»OPCo(I) , OTC  ,P V ,CRI ,OPCC (I) ,FlG,PSC(I)  ,PSU,  VX (I)  ,  0s>02*0 

1  PCU»1),PC(2,I),YN<1) ,ACC,C0MC(I1) , TN(1) , ACC, COMO (1 2)  ,  Y.N(i),ACC,  0  50260 

2C0M0  (130  050230 

PRaNT  ADDITIONAL  line  WHEN  SECOND  Slope  IS  REQUIRED  (Pi  AND  050300 

PSC  DATA  ON  OPPOSITE  SI OES  OF  APPROACH).  IREF,  ITP,  I*P,  ANO  050320 

I HP  ARE  DEFINED  IN  SUBROUTINE  *  DELTAS  *  I  0503*0 

IF  ( IREF ( I) -1 )  200, 130, 15*  0503o0 

130  11  =  1  HP  050330 

12=1 AP  050*00 

GO  TO  19o  050*20 

13*  11=1 AP  053**0 

I2«ITP  050*60 

196  WRITEtb, 2125)  YN  <  1)  ,  ACC,  CD«D  ( ID  ,  YN  (1)  ,  ACC  ,COHO  (12)  090*80 

200  CONTINUE  050500 

:  PRINT  GENERAL  INFORMATION  LINES!  090520 

WRITE (6 ,2130)  0505*0 

;  PRINT  FOOTNOTES  AS  REQUIRED!  050560 

IF  (ICK1  . &T .  0)  HRI TE (6 , 2 1*  0)  050580 

IF  i  1CK2  . &T.  0)  HRI  TE(o,  2150)  0506J0 

RETURN  050620 

203  3  FORMAT (1M1,  ’SUMMARY  DF  I/O  FOR  AIRCRAFT  I  *,A10>  0506*0 

2010  FOrHAT </  IX, ’PROGRAM!  OMEGA  10. *,11/  050660 

1  IX, ’AIRCRAFT  CODE!  *,43/  IX, ’PROFILE  VERSION  CODE!  *,A1/  050630 

2  IX, ’COMOEC K  REVISION  IDENTIFIER!  »,A1/  IX.’DaTEI  ’,A10/  350/00 

3  IX, ’DELTA  N  (OR  O ELN) =* 6. 2, *  DB*)  050720 

2020  FORMAK//  1X,J5(1H*),’  INPUT  OATA  »,35(1H*)  0507*0 

1/2X, ’COMoEGK*  ,  SX, ’POWER’, *X , ’AIRSPEED  POWER  DESCRIPTION’ ,5X,  050763 

2*0 AT E  OF*/*X,  ’NAME  OPC  SETTING* , 5X, ’KNOTS* ,  2*X,’NORh.  RUN*)  050780 
203  0  FORMAT (IX, *N*, A3, AS, 2X,A2, IX , A5, IX, A5, 16 , 3 A, 2A 10 , 2X,  A10 )  0508 0  0 

2060  FORMAT (//  1X,3*(IH’),*  OUTPJT  OATA  *,35(IH*))  050620 

2070  FORMAT (IX,  ’IS  PROFILE  DATA  WRITTEN  ON  FILE  • TAPE3 »?--*, A3)  0508*0 

20o  0  FORMAT (IX,  ’MAXIMUM  PERMITTED  PROFILE  OATA  EXTRAPOLATION  IS! * , Fb. 20 50E60 

1,*  DB*/  IX,  ’ENGiNE  TYPE  rOR  ALL  PROFILE  DATA!  *,A10,A5>  050880 

2030  FORMAK  IX ,’METE UROL OGY I  TE HP* , &X, , 1 6 , *  F*/  050900 

1  ISX.’REu  MJMIO  =’,Io,*  /.♦>  350920 

2110  FORMAT (  *0PR0FIL£*,6X, ’POWER*  3X,’ AIRSPEE D* ,  IX, ’POWER  0ESCRIPTIO0509*0 

IN’,  9X, ’NORMALIZED  COMOECKS’/  3X , *IO* , *X, * OPC* , 3X, ’SETT I NG’ , *X ,  3539o0 

2  ’KNOTS’, 23X, ’REFERENCE  S.OPE  REF.  POINTS’)  0509d0 

212  0  FORMAT! IX, A3, A2,3A1, IX , A 2, A1 , A5, IX, A6,F6. 1 ,2X, 2A 10 ,3 ( IX,  A 1, A3, As) )  051 00 0 
2125  FORMAT (  o3X , 2 ( IX , Al, A3, AS) )  051020 

2130  FORMAT!//  1X,30(1H’),*  GENERAL  INFORMATION  *,31(1M’)/  0510*0 

1  IX.’OPC  —  OPERATION  POWER  CODE.*/  0&1060 

2  IX, ’THE  ENGINE  TYPE  GIVEN  ABOVE  IS  TAKEN  FROM  THE  LAST  REFERENCE  0510d0 
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3FI l£  DATASET?*/  1X,*II  IS  ASSUMED  TO  3E  THE  SAME  FOR  A.l  DAT ASETS . 05 11 0 0 
4*/lX, ’PROFILE  COMOEC K  NAME  *  STMBOl  E,  S  OR  L  *  PROFILE  ID  LISTED  051120 
5ABOOE*/)  051140 

2i-*u  fokmat < ix i  *►  no  profile  data  computed  for  this  qpc;  see  program  eobubo 

IrROR  MESSAGES.*)  051150 

2150  FORMAT (IX,  *<  POWER  SETTING  EXTRAPOLATION  LIMITED  BT  AMR./aBE,  N-P051200 

1AF  3«  *)  051220 

END  051240 
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r  -  xcw 

RANK  -  SETUPOb 
REF  -  PPFOAT 

REL  -  ALPH 

RETURN  -  ALPH  A  TKN  LA.  COIST  LPNL  lPTC  0ELTA6  FNUY 


SUFE*  INDEX 


<J  EC  -  OMEGA10 

VFCI  -  GDI jl  DEL  TA  6  JNEGA10 


appendix  j 

OMEGA  11  PROGRAM  LISTING 

The  listing  for  the  OMEGA  11  program  is  provided  in  the  follow¬ 
ing  pages.  Included  at  the  end  of  the  program  listing  is  a  Super 
Index  which  lists  all  variable  names  defined  in  this  program  as 
well  as  all  routines  in  which  they  are  used. 
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PS 


m 


tmi- 


PROGRAM  OMEGA  11  (INPUTt  OUT  :>Ur  ,TAP£5*INPUT,TAPE&*UUTPJT,r APE7,TAPE2> 
OElK  MAIN  ' OMEGA  11* 


C* 


c* 

0* 

0* 


c* 

c* 

0* 

0* 

c* 


PROGRAM  FILES! 

INPUT  OR  T  *P£5  —  CODE  a*  EET  INPUT  FIlES 

OUTPUT  OR  TAPES  OUTPUT  FItE  FOR  'OMEGA  11'  TAG  OUTPUT; 

TAPE 2  PROFILE  DATASET  OUTPUT  FILE  (COULD  BE  COPIED  TO 

THE  PUNCH  FILE) • 

TAPE7  —  NORMALIZED  DATASET  INPUT  FILE; 


THIS  OMEGA  11  PROGRAM  HAS  WRITTEN  3T  THE  UNIVERSITY  OF  DAYTON 
RESEARCH  INSTITUTE  UNDER  CONTRACT  F 33615- 75-C-5040  NITN  THE 
657 0 -I H  AEROSPACE  MEQICAL  RESEARCH  LABORATORY  ( AMRL/dBE)  AT 
HRIGHT-PATTERSON  AIR.  FORCE  3ASE,  OHIO  45433. 


c** 

OMEGA 

11  PROGRAM  VERSION  1  (12  APR 

1977) 

*• 

THE  FOLLOHING 

SUBROUTINES  ARE 

USED  BY  THIS  PRQGRAH i 

*# 

i'**  \ 

c** 

DK01  — TESTN 

QK  06 - ICV 

DK11 - CAL 

0K16  — 

-SUMRY 

•  * 

r  \\ 

z** 

DK02  —  ALPH 

0K07— CDIST 

DK12— PPFDAT 

DK17  — 

-EDIT 

♦  * 

r  '  \ 

c** 

DK03 - AT  KN 

OK08  — CPNL 

UK13 - TITPG 

DK18  — 

-ERR 

•  • 

i 

c** 

OK  04 - HEADS 

OK09— fnoy 

OKI 4---PL  T 

0K19  — 

-FINTP 

*♦ 

C** 

c** 

DK05 - RSPLN 

OKifl  —  CPTC 

DK15— Rank 

UK  20  — 

-ITER 

** 

THIS  OMEGA  11  PROGRAM  HAS  HR IT TEN  TO  ANALYZE  GROUND  RUN-UP  NOISE 
MEASUREMENTS  FROM  NORMALIZED  SOUND  PRESSURE  LEVEL  (SPL)  DATA 
FOR  1/3  OCTAVE  FREQUENCY  BANOS  17  TO  40  AND  ANGLES  0  TO  180 
DEGREES.  THE  PROGRAM  INPUTS  THE  NORMALIZED  DATA  FROM  THE 
THE  REFERENCE  FILE  <  TAPE7I  CREATED  FROM  THE  NUlSEFILE  2 
DATABASE.  THESE  REFERENCE  OATA  HERE  NORMALIZED  TO  59 


r.  •/ 

c** 

70  Z,  29.92  IN  HG»  AND  250.0  FEET  FROM  THE 

SOURCE  BY  THE 

*♦000940 

’  •  \ 

:** 

ONEGA  8  PROGRAM. 

**000960 

c** 

**000980 

c** 

**001000 

c** 

THE  PROGRAM  PRINTS  THE  FOLLOWING  DATA  WHEN 

CODE  SHEET  PARAMETER 

*•001020 

c** 

IPRall 

**001040 

^  - 

C*‘ 

**001060 

c** 

1)  TITLE  OR  COVER  PAGE  S 

**001080 

c** 

2)  TEST  SUMMARY  PAGE. 

**001100 

c** 

3)  NORMALIZED  'SPL*  OATA  —  PAGE  CJ 

••001120 

c** 

4)  PERCEIVED  NOISE  LEVEL  (PNL)  PROFILE 

DATA  -  PAGE  0; 

*♦001140 

- 

c** 

5)  TONE-CORRECTEQ,  PERCEIVED  NOISE  LEVEL  (PNlT)  PROFILE 

•*081160 

;** 

OATA  -  PAGE  E! 

**001180 

000100 
000120 
000140 
000160 
000180 
000200 
000220 
0002*0 
0  0  02o0 
000280 
000300 
000320 
000340 
000360 
000380 
U  0040  0 
000420 
0004*0 
000460 
000480 
000500 
000520 
000540 
000560 
000580 
000600 
000620 
000b*0 
000660 
000680 
000700 
000720 
000740 
000760 
000780 
000800 
000820 
0008*0 
000860 
000880 
000900 
000920 
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6)  A-WEIGHT £0  OVERALL  SOUND  LEVEL  (AL)  PROFILE  DATA  -  PAGE  F; 

7)  T  ONE-CDRREO I  ED  »  A-WE1GHTEJ  OVERALL  SOUND  LEVEL  (ALT) 

PROFILE  OATA  -  PAGE  G ! 

a)  TAD  PLOT  OF  NOISE  LEVEL  (PNLT,  AL  ANO  ALT)  As  A  ^UNCTION 
OF  ANGLE  AROUND  SOURCE  FOR  NORMALIZED  DISTANCE  -  PAGE  JJ 


THE  PROFILE  OATA  ARE  COM3 j TED  AND  PRINTED  AS  REQUESTED  Br  THE 
'MEAS*  CODE  SHEET  PARAMETER. 

THE  PROFILE  DATA  CONI  AIN  NOISE  LEVELS  FOR  22  OISTANCES 
(20a  TO  25000  FEET).  THE  ‘PNLT*,  ‘AL*  ANJ  'ALT’ 

PROFILE  DATASETS  ARE  WRITTEN  ON  FILE  *TAPE2*  (SEE  'IEOIT* 
PARAMETER) . 

FOR  IPR=0  OR  BLANK,  ONLY  THE  TEST  SUMMARY  PAGE  IS  PRINTED. 


001200 
001220 
0  012 aQ 
001260 
001260 
001300 
001320 
0  013a  0 
0013s0 
001360 
001-.00 
0 01A20 
0014a0 
0 01460 
001460 
001500 
001520 
001540 
001560 
001580 
001600 
001620 
001640 
001660 
001360 
001700 
001720 
001740 
001760 
001760 
001800 
001820 
001640 
001660 
001660 
001900 
001920 
001940 
001960 
001980 
002000 
002020 
002040 
002060 
002080 
002130 
002120 
002140 
0  Q21d0 
002180 
002200 
002220 
002240 
J022o0 
002280 


THE  FOLLOWING  ARE  SOME  OF  THE  VARIABLES  USED  BY  THE  PROGRAM  (SEE 
DOCUMENTATION  FOR  A  MORE  COMPLETE  LIST)  I 


3PC (6  > 
OPCC(o) 
1=3  -~ 
1M=1  — 
IL  =  1  — 
I H=2a  - 
IL  IS 

vlC - 

IP - 

J  1ST  — 

,1N=6  — 
1PM-6  - 
IPR=1  - 
IPK*0  - 
IEOIT  <0 
I EQIT  *0 


*EDIT»0  — - 


MEAS ( 1) 
vlEAS (  2) 
MEAS( 3) 
MEAS=  0 
FMXER  - 

IEKK  — 

SX ( 22) 
SPLX  .19 


—  ARRAY  CONTAINING  THE  REFERENCE  OPERATION  POWER  COOES. 

—  ARRAY  CONTAINING  THE  OUTPUT  OPERATION  POWER  CODES. 

1/3  OCTAVE  BAND  DATA  --ALL  DATA  MUST  BE  1/3  OCTAVE. 

-  FREQUENCY  ARRAY  INDEX  INCREMENT  FOR  M«3. 

-  FREQUENCY  INDEX  CORRES PONUI NG  TO  3AND  17. 

•  FREQUENCY  INDEX  CORR ESPONOI NG  TO  BAND  40. 

IBNL  ANO  IH  IS  I BNH  IN  SOME  OF  THE  SUBROUTINES. 

NUMBER  OF  ANGLES  —  ALWAYS  19  FOR  NORMALIZED  DATA. 

NUMBER  OF  reference  dpc*s  for  THIS  AIRCRAFT. 

NUMBER  OF  OUTPUT  OPCC'S  TO  BE  COMPUTED  FOR  THIS  ACC. 

-  STANDARD  REFERENCE  DISTANCE  IN  FEET  5  MUST  BE  WITHIN 
IX  OF  ONE  OF  THE  STANOARG  PROFULE  DISTANCES. 

“HA XI MUM  NUMBER  OF  REFERENCE  OPERATION  POWER  CuQES  PER  ACC. 
-MAXIMUM  NUMBER  OF  OUTPUT  OPCC'S  PER  AIRCRAFT  SET. 

—  PRINT  NORMALIZED  5P L  ANL  PROFILE  OATA  ON  FILE  •TAPE6*. 

—  OMIT  ALL  *T AP£6 '  OUTPUT  EXCEPT  ERROR  STATEMENTS. 

—  OMIT  ALL  PROFILE  OATA  FROM  FILE  'TAPE2*. 

—  CALL  SUB.  'EDIT*  TO  SELECT  10  ANGLES  FOR  REQUESTED 
PROFILES  MEASURES. 

-  WRITE  AlL  ANGLES  01  FI.E  'TAPE2 '  FOR  REQUESTED  PROFILE 

MEASURES. 

>0  -  COMPUTE  *PNL*  AND  'FNLT*  PROFILE  OATA. 

>0  —  COMPUTE  *AL*  PROFILE  DATA. 

»0  —  COMPUTE  'ALT*  PROFILE  DATA. 

Ok  6LANK  -  CORRESPONDING  PROFILE  OATA  ARE  OMITTED. 

—  MAXIMUM  ANGLE  SELECTION  ERROR  PERMITTED  WITHOUT  AN  ERROR 
MESSAGE  BEING  PRINTED. 

-  FLAG  SET  BY  SUBROUTINE  *RSPLN'5  IF  IERR»0,  OMIT  COMPUTATIONS 
FOR  THIS  *ACC*. 

-  STANOARD  DISTANCE  OATA  USED  TO  COMPUTE  PROFILE  DATA. 

,24)  -  ARRAY  USED  6Y  SUBROUTINE  'CDIST'  FOR  TEMPORARY 
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OOOOOOiJOCi  t  >  C>  OnO(»(K)liO(KiU() 


STORAGE  OF  SaL  DATA  FOR  EACH  PROFILE  DISTANCE. 

PNLX(19,22,2) - ARRAY  CONTAINING  *  PNL*  PROFILE  OATA  FOR  19  ANGLES 

ANO  22  PROF  I. E  DISTANCES  FOR  2  POMER  SETTINGS. 
PNLTX (19,  22, 21  —  ARRAY  CONTAINING  *PNLT*  PROFILE  DAI  A  FOR  19  ANGLES 
ANO  22  PROFILE  DISTANCES  FOR  2  POWER  SETTINGS. 

ALX(1 9,22,2)  -  ARRAY  CONTAINING  *AL‘  PROFILE  DATA  FOR  19  ANGLES 

AND  22  PROFILE  DISTANCES  FOR  2  POWER  SETTINGS. 

ALTX(19,22,2)  -  ARRAY  CONTAINING  ‘ALT*  PROFILE  DATA  FOR  19  ANGLES 

ANO  22  PROFILE  DISTANCES  FOR  2  POWER  SETTINGS. 

SENXO (19,22,4) - ARRAY  CONTAINING  INTERPOLATED  PROFIlE  DATE  FOR 

PNL,  PNL T ,  AL,  ANO  ALT  FOR  19  ANGLES  AND  22 
DISTANCES. 

IPkCK (6)  -  PROGRAN  FLAG  SET  EQUAL  TO  ONE  WHEN  THE  CORRESPONDING 

REFERENCE  3ATASET  IS  REQUIRED  TO  INTERPOLATE  DATA. 

JMY (202)  -  OUMMY  ARRAY  USED  BY  SUBROUTINE  'PLl*. 


THE  FOLLOWING  PARaHETERS  ARE  READ  FROH  THE  NORMALIZED  •CONDECKS* 
(REFERENCE  DATASET)  BY  SUBROUTINE  *RSPLN*» 


RUM  6  J  —  2  CHARACTER  RUN  NUMBER  FOR  EACH  *OPC*. 

TEST (6)  -  10  CHARACTER  TEST  NUMBER  FOR  EACH  *OPC'. 

FSPL ( 19 ,24,o) - NORMALIZED  SPL  DATA  FOR  EADH  »OPC*. 

PS (b, 6)  -  POWER  SETTING  OATA  FOR  EACH  *OPC*. 

UPi)(2,6)  —  POWER  DESCRIPTION  OATA  FOR  EACH  *OPC  '  (20  CHARACTERS). 

TT (6,6)  -  TEST  TITLE  INFORMATION  FOR  EACH  'OPO*?  2  LINES  OF 

25  CHARACTERS J  FIRST  LINE  IS  THE  AIRCRAFT  NAME. 


DIMENSION  SENX (19,22,12) ,IR£Q<2,6> ,NR(17,3) , TYPE (3) ,FREQ( 2a) 

COMMON  M,MM,IL,iH,NC,L,N,IO, 0IST,HEAS(3> , FSPL ( 19,24, 6) , SPLX ( 19 , 24) 

1,  PNL X( 19, 22,2) ,PNLTX(19,22,2),ALX(19,22»2) , AlT X ( 19 , 22, 2)  , 

2  3ENX0(  19,22, <♦)  ,IR  (19)  ,IaRC< (6)  ,  DMY  (202) 

COMHUN  /ATTNC/  ATNC( 24) , AT  NS (24)  , SX (22) 

COMMON  /HEMOC/  TEST (6) , T T ( 6, O) , DATE , RUN (6) ,IPAG£ , I VER, ACC , OPO ( 6) , 

1  IT,Pl,IHM,IT3,P8,IH3,FIMPR3,PV,0RI,PS(o*6)»0Pu(2,o) ,0PGC(6) ,DElN 

2,  PSC(6) ,PSU,NP,PSIF (b) , PSCF (6) , NRC (6) , ICC .OPCDM ,OPDl , DP 02 

3,  COM 0(6) , RUNC (b),IC,0ATN(9),IFC(b),IFCC,IFI(b) , IFII 


EQUIVALENCE  ( PNLX ( 1, 

1,1)  ,  S  EN  X  ( 1 , 1 

,1>> 

,  (SPLXd.l) 

,NR( 1, 

1)  ) 

OATA  BLK/1H  / , A3K/1H 

*/ 

PREFERREu  BAND  CENTER  F 

REQUENCY  OATA 

IN 

•HZ* 

(USED 

FOR  PRINTOUT  ONLY) 

DATA  FREQ  /  8H  50 

,8H  63 

,8H 

30 

,8H 

100 

,  8H 

125 

3 ,8  H  160  ,£H  200 

,8H  250 

,  3  H 

315 

,  8  H 

400 

,  8  H 

500 

* ,3H  630  ,8H  800 

,8H  1000 

,8H 

1250 

,  8H 

16  00 

,  8H 

2dd  0 

5 , 8H  2500  ,3H  3150 

•  6  H  *0  00 

,8H 

5000 

t  6  H 

6300 

f  bH 

800  0 

6,  SHI 0000  /,IY£k/1/,DELN/ 0. 0/.ACC/1H  / , NN/bF , HPH/b/ , IRQ/ 2/ 

7 , T YPE/5HPNLT  t , 5HAL  I  ,5HA.T)  /, DFMXER75 • 0/ 
o,RUNC/2H01,2H0  2, 2H03 ,2M0L, 2N OS, 2H 06/ , ASK3/3H***/ 

IL*1 

IH*24 

M*3 

MM*1 

NC*19 

DIST =250.0 

C  COMPUTE  STANDARD  DISTANCE  OATA  USED  TO  COMPUTE  PROFILE  DATA. 

00  5  1*1,22 
FN*FLOAT(I»22)*0.1 


002300 
002320 
0023*0 
002360 
002330 
002400 
002420 
0024*0 
002460 
0  0246  0 
002500 
002520 
0  025*0 
002560 
0  025  3  0 
002600 
002620 
0026*0 
002660 
002630 
002700 
002720 
002740 
002760 
002760 
002300 
002820 
002840 
002850 
0 J2680 
002900 
002920 
002940 
002960 
002930 
903000 
003020 
003040 
003060 
003030 
003100 
003120 
0031*0 
003160 
003130 
003200 
003220 
0u32*0 
003260 
003280 
003300 
003320 
003340 
003360 
J  03330 


o  o 


p 


5  SX(I)=10.Q**Fn 

C  READ  QATE  IN  FORM!  12  A  PS.  77 
C  READ  •  JOS  CONTROL  CAkO' 

RE  AO  (5,106  0)  OAT  E  ,  IPR,  IECI  T,  ME  AS  ,  FMXER 
IF  (FMXER  .LT.  0.01)  FMXER=DFHX£R 
IF  (MEAS(1)*'1E*S(2)*M£AS(3J>  6,6,10 
0  IF  ALL  M£AS(i)=0,  COMPUTE  ALu  3  MEASURES. 

6  DO  7  1=1,3 

7  MEAS (I) =1 

C  INITIALIZE  CODE  SHEET  P AkAMET  ERS I 
10  DO  16  1=1, NPM 
OPCC  (I) =SLK 
IFC ( I)  =  0 
15  PSC ( I) =BLK 
OElnu=OELN 
OACC=ACC 

call  SUBROUTINE  * TESTN*  TO  RE AO  CODE  SHEET  PARAMETERS  FOR  AIRCRAFT 
TO  BE  ANALYZED! 

CALL  TESIN(NPM) 

C  IF  ACC= ASK ,  JOB  WILL  BE  TERMINATED. 

IF  (ACC  .ED.  ASK)  GO  TO  953 

C  IF  ACC****,  NO  NEW  NORMALIZED  REFERENCE  DATA  ARE  kEAu  UNLESS 
C  •IFCC*>*IFII»;  DATA  FROM  THE  PREVIOUS  SET  WILL  BE  USED  3E.OW. 

C  IFCC  -  NUMBEk  OF  SPECIAL  CASE  (NO  INTERPOLATION  PERMITTED)  POWER 

C  SETTINGS. 

IF  (ACC  .NE.  AjK3)  GO  TO  25 
ACC=OACC 

IF  (IFCC  .LE.  IF I I )  GO  TO  33 
;  INITIALIZE  REFERENCE  file  PARAMETERS! 

25  DELN0=0 • 0 
00  30  1=1, NN 
PS ( 1  ,1 ) =BLK 
PS ( 2 , I) =SLK 
OPC ( 1) =BLK 
TEST (I) *BLK 
IFI  ( 1)  »  0 
30  RUN(1)=BlK 

C  CALL  SUBROUTINE  *kSPLN*  TO  READ  THE  NORMALIZED  DATASETS! 

CALL  RSPLN(NN, IERR) 

IF  (IERR)  36,35,10 
36  IF  (NP  .GT.  0)  GO  TO  45 

C  FOR  NP* 0,  COMPUTE  THE  PROFILE  DATA  FOR  ALL  REFERENCE  FILE  POWER 
C  CONDITIONS?  INITIALIZE  THE  REQJIREQ  'ID*  ARRAYS  HERE! 

NP=N 

PSU* PS  ( 2, 1) 

IFCC=IFU 
00  40  1  =  1, N 
PSC(I)*PS(1,I) 

NRC ( I) *  I 
IREQ  (1,1) *1 
IAEQ  (2,1) =0 
IFC(i) *IFI (I, 

*0  OPCC (I) «OPC(I) 

GO  TO  50 

C  CALL  SUBROUTINE  'RANK*  TO  DETERMINE  THE  INDICIEi  OF  THE  REFERENCE 


003*00 
003420 
0  034*  0 
003460 
003460 
003500 
003523 
0  035*  0 
003560 
003550 
003600 
003623 
0036*0 
003660 
003680 
003730 
003720 
003740 
0  037o0 
003750 
003500 
003820 
0  G38*  0 
0  03660 
003530 
0  039  G  0 
003920 
0039*0 
0  0  39o  0 
003930 
004030 
00*020 
004040 
004060 
0  040  d  0 
304100 
004120 
0041*0 
004160 
004160 
004200 
004220 
0  0*2*0 
004260 
004230 
004300 
00*320 
00*3*0 
304360 
0  043o  0 
004400 
00*420 
004440 
004460 
0  0*43  0 
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c>  O 


DATA  x£  QUIkEO  TO  INTERPOLATE  EACH  OUTPUT  POWER  SETTING!  STORE  THE 
INGICIES  IN  AnkAY  *IR£Q*« 

46  CALL  RANK (IREQ.IERR) 

IF  < IERR)  aO.50,10 
50  IPAG£=0 

C  CAtL  SUBROUTINE  'TITPG'  TO  ®RIWT  COWER  PAGE* 

IF  (1PR  .GT.  0)  CAUL  TITPG 

C  CAUL  SUBROUTINE  'SUMRY'  TO  PRUT  THE  SUMMARY  PAGE* 

CALL  SUMKY(1R£Q,IEDIT,FMX£R) 

C  *01*  IS  A  CONSTANT  JSEO  IN  SUBROUTINE  'CDI6T •  TO  COMPUTE  'SPL'  DATA 
C  AT  STaNUARO  PROFILE  DISTANCES* 

01*10.0* A LOGIO (FIMPR8) *20. 0* ALOGIOT 01 ST) 

C  DEFINE  FLAG  'IPRCK'  AS  FOLLOWS* 

C  I PkCK (L ) 3 0 - L-TH  REFERENCE  DATASET  NOT  USED  IN  COMPUT A T i ONS. 

C  IPRCK (L )  =  1  — -  L-TH  REFERENCE  OATASET  IS  USED  IN  COMPUTATIONS. 

DO  55  L=1,N 
IPRCK*  L)  =  0 
DO  55  IC*1,NP 

iF  (InEQU.IC)  .EQ.  l)  I»RC<(L)»1 
IF  ( IRE  Q  1 2 , IC)  .EQ.  lJ  IPRCKCL)=1 
55  CONTINUE 

C  JELNO  IS  ALWAYS  0.0  FOR  THE  FIRST  SET  OF  DATA  FOR  EACH  'ACC** 
l*OELN-OELNO 

IF  (ABS(O)  .LT.  .001)  GO  TO  70 
C  AOu  * OELN •  TO  THE  rEFE*EnCE  S P.  DATA* 

DO  65  L*1»N 

IF  ( IPRCK ( L ) )  65,65,58 
58  00  60  1*1, NC 
DO  60  U*I L , IH 

60  FSPL(I,J,U*FSPL(i,J,L)*G 
o5  CONTINUE 

70  IF  (IPR)  160, lofl ,80 

C  SET  UP  ANO  PRINT  THE  NORMALIZED  REFERENCE  DATA  PAGES* 

80  10*1 CW ( OIST) 

00  150  L= 1 , N 
IF  ( IPRCK(L) )  150,150,65 
45  IPAGE=IPAGE*1 

C  PRINT  NORMALIZED  DATA  PAGE  HEADING* 

CALL  HEAOS(l) 

D  PRINT  NORMALIZED  'SPL'  OATA* 

00  100  J*IL, IM  ,MM 
00  90  1*1, NC 

C  CUNWERT  ARRAY  'FSF . < i  ,  J  ,l)  '  OATA  To  INTEGER  WALUE. 

Ik(X)*ICW (FSPL (1 , J,L  >  > 

90  CONTINUE 

WRIT  E (6 ,2200)  FREQ ( J )  , IR 
100  CONTINUE 

00  120  1*1, NC 

0=0.0 

00  110  U*IL,IH,MM 
0*0*10. 0**< FSPL (1, J, L) /10. 01 
110  CONTINUE 

C  '0*  IS  the  owerall  souno  pressure  level* 

0  *10 . 0* ALOG1 0  (0 ) 

Ih(I)*ICV (0) 


0j4500 
0  0*.a20 
0  045*.  0 
004560 
004580 
0  O40  0  0 
004620 
0  04oh  0 
0  04bo 0 
004680 
004700 
004720 
004740 
004760 
004730 
0  048  00 
004820 
0  04840 
004860 
004630 
004900 
004920 
0  049-.0 
004960 
004980 
005000 
005020 
005040 
0  05060 
005080 
005100 
005120 
005140 
005160 
005180 
005200 
005220 
005240 
005260 
005260 
005300 
005320 
005340 
005360 
0  0536  0 
005400 
005423 
0  05440 
0054o0 
005480 
005500 
005520 
005540 
005560 
005530 


120  CONTINUE 

WRIT  E(o  ,2 15  0) 

C  PRINT  0  VER AlL  *5PL*I 
WRIT  E (6 , 2  10  Q )  IR 
WRIT£( o  ,2005) 

150  CONTINUE 
150  IP4GE=0 

C  L AdEL  500  LOOP  -  COMPUTE  THE  PRCFIlE  OAT 4  FOR  EACH  OF  THE  »NP« 

C  POWE.x  SETTINGS  (PSC)  I 

CO  500  IC=1,NP 
IPAGE*IFAGE*1 
1CC*NRC(IC) 

IClsIC-1 

C  LABEL  300  LOOP  -  COMPUTE  THE  PROFILE  DATA  FOR  THE  REFERENCE 

C  POWER  CONDITIONS  REQUIRED  TO  INTERPOLATE  THE 

C  PSC(IC)  PROFILE  uATA;  THESE  data  may  have  seen 

:  COMPUTED  FOR  A  PREVIOUS  *PSC*I 

DO  300  11*1,2 
L=IR£Q(II,IC) 

IF  (L)  300,300,200 
200  IF  (IC  .EQ.  1>  GO  TO  250 

IF  (L  .EQ.  IREQl II ,1  Cl) )  GO  TO  300 

C  CALL  SUBROUTINE  'COIST'  TO  CONTROL  THE  COMPUTATION  AnQ  PRINTOUT  OF 
C  THE  PROFILE  OATASET  COMPUTATIONS! 

C  IkL  IS  THE  INDEX  OF  THE  STANDARD  DISTANCE  SET,  SXCI),  CORRESPONDING 
C  TO  THE  REFERENCE  DISTANCE,  GIST. 

250  CALL  COIST(IRO,D1,II) 

300  CONTINUE 

C  AFTE*  LABEL  300  THE  PROFILE  J  AT  A  REQUIRED  TO  INTERPOLATE  THE  DATA 
C  FOR  PSC(IC)  IS  STOREO  IN  AuRA  Y  SENX < 19, 22 , 12)  I 
L 1 =1 REQ ( 1 , IC) 

L2=I REQ ( 2 , IC) 

IF  (LI  .GT.  0  .AND.  L2  .GT.  0)  GO  TO  320 
JI  =2 

IF  (LI)  310,310,370 
310  IF  (L2)  500,500,380 

C  'IlC*  IS  THE  INDEX  DF  ARRAY  *PSCF»  OF  RANK  'IC*. 

C  *  LI  *  ANO  *L2*  ARE  INOICIES  O'  ARRAY  *PSIF'  FOR  DATA  TO  3E 
C  INTERPOLATED. 

320  J=d 
JJ1=1 

IF  (IPR  .GT.  0  .ANO.  MEAS(l)  .GT.  0)  GO  TO  315 

J*9 

JJ1»3 

C  label  350  LOOP - INTERPOLATE  PROFILE  DATA  FOR  'PSCUO'I 

315  DO  350  JJ*J Jl , 7,2 
J2*( JJ-1) 72 

C  J2=Q  FOR  *PNL*  DATA  I 

IF  ( J2)  330,330,335 

C  SET  UP  DISTANCE  INOICIES  FOR  A.l  22  OISTANCESI 
330  Kl* 1 
K2=22 
GO  TO  34b 

335  IF  (MEASCJ2))  340,340,330 

C  COMPUTE  THE  PROFILE  DATA  FOR  THE  REFERENCE  OISTANCE  ONLY! 


0  055  0  0 
005620 
3  056-t  0 
0  0566  0 
0  0568  Q 
005700 
005720 
0  057-,0 
005760 
005760 
0  056  0  0 
005620 
0  056-*  0 
005660 
JQ5e30 
003900 
005920 
0059*0 
005960 
005980 
006000 
006020 
006040 
006060 
006060 
006100 
006120 
0  Ool 4 0 
006160 
006180 
006200 
006220 
306240 
006260 
306260 
006300 
006320 
006340 
0  06360 
006380 
006400 
0  0o42  0 
00o4tQ 
0  06460 
0  064d  0 
006530 
006520 
J  0t>5*0 
006560 
006560 
oootao 

0  0o62  0 
0  0664  0 
006660 
006680 


o  o 


3**  0  K1=IRQ  306700 

K2=1R0  006720 

3+6  J=J+1  006740 

J1=JJ+1  006763 

INTERPOLATE  PROFILE  OAT  A  FOR  EACH  DISTANCE  k  NO  ANGLE!  006730 

DO  360  K=K1»  K2  006630 

OO  360  1=1,16  006620 

36  0  SENX (I,K, J)  =  < (SENXQ ,K, Jl)  -5 ENX (I ,  K  ,  J  J) ) / (PS IF (L2) -PSIF (Ll) ) )  0  0664  0 

1*(PSCF(ICC)-PSIF(L1)  ) +  SENX (I ,  K, J J)  0  06660 

ARRAY  *  SENX ( I , K, J) *  FOR  J  =  9,12  CONTAINS  THE  PNLX(19,22)  TO  006o60 

A  L  T  X  ( 16,22)  DATA  AS  REQUESTED.  006900 

L=  0  0  0o92  0 

Jl=l  006940 

Jl=l 0  006960 

J2=12  006960 

Go  TO  400  007000 

lABEL  370— NO  InT  EkPOLATION  — PNLT ,  AL  AND  ALT  STORED  IN  SENX(I,<,J>  007020 
FOk  J=3 , 6  AND  7.  0070+0 

370  Jl=3  007060 

J2=7  007060 

L=L1  007130 

GO  TO  400  007120 

LABEL  360 ““NO  INTERPOLATION—  PNLT,  AL  ANO  ALT  STOTED  In  SENX(I,X,J)  007140 
FOR  Js4,0  ANO  8.  0071o0 

360  Jl=4  007160 

J2=6  007200 

L=L2  007220 

4  J  0  IF  (IEulT)  440,430,4  +  0  307240 

call  SUBROUTINE  *EOIT‘  TO  SELECT  I  HE  10  ANGLES  WHICH  »EST  UEFINE  The  0  072b  0 
PROFILE  DATA  AT  THE  REFERENCE  DISTANCE  I  007260 

+30  CAll  EUII (IR3, J1.J2, Jl ,  ACC  ,PSC  UCC)  ,  PSU,  FMXER)  007300 

IF  'Nr<I,J)'>9  FOP  1=  ANGLES  10  TO  170  AND  J=  NEASURE.  INDEX,  007320 

THEN  THE  I-TH  AnGlE  IS  INCLUOEO  IN  THE  PROFILE  DATASET  FOR  THE  J-TH  0073+0 
.lEASURE.  0073o0 

CALL  SUBROUTINE  'PPFOAT  '  TO  WRITE  THE  'PNLT',  'AL'  AND/OR  'ALT'  007380 

PROFILE  DATASETS  ON  FILE  'T4=E2'  AND  PRINT  THE  TAB  LISTING  ON  THE  0b.  ”  0 

OUTPUT  FILE  (TAPES) I  0074..0 

4  +  0  lALL  PPFOAT (J1»J2,JI,L1,L2 , 1 PR, I  EDIT)  007440 

CALL  SUBROUTINE  'PLT*  TO  PRINT  A  TAB  PLOT  OF  ANGLE  VERSUS  NOISE  lEVEL007h60 
FOr  *PNLT',  *AL*  ANO  'AlT*  PROFILE  DATA  FOR  THE  REFERENCE  DISTANCE!  007460 
IF  IIPR)  500,600,450  007500 

45  0  CALL  PLTdRO,  Jl,  J2.JI)  007520 

WRIT  E(b ,2500)  007540 

LABEL  490  LOOP  -  LIST,  BELOW  THE  TAB  PLOT,  ALL  ANGLES  FOR  WHICH  007560 

PROFILE  DATA  WERE  WRITTEN  ON  FILE  *TAP£2»1  007580 

OO  +90  U= 1 ,3  007600 

IF  ( IEDII )  460, 470, +60  007620 

+o0  WRIT  E ( 6 , 251 0)  TYPE ( J)  007640 

GO  TO  490  007660 

470  IF  ( ME AS ( J) )  +o0,460,475  007630 

475  WRITE(6, 2520)  TYPE (J ) , (NR< I,  J) , 1  =  1,  8)  007700 

GO  TO  490  007720 

+80  IF  ( H£AS( J) )  +60, +60, +85  0077+0 

+85  WRITEib ,2530)  TYPE(J)  0077o0 

490  CONTINUE  007780 


500  CONTINUE  007800 

CO  TO  10  007820 

9-09  MR  IT  £  (6  *  24  0  0)  007840 

STOP  007860 

a  07 6 80 

079 Q0 

1060  FORMAT (A10, 612, F5.Q)  007920 

2005  FORMAT l  12 X, 1H < , 1 1U < 14- ) ,  1H>)  0079*0 

2100  FORMAT < 12X ,* <  OVER  All* , 3 X, 191 5 , *  >•)  007960 

21-30  FORMAT  (12X,*(**110X,*)*>  007980 

2200  FORMAT (12X,*<*,  3X.A8,  2X.19I6,*  )*)  008000 

2400  FORMAT (*1  ENO  OF  OmcGAII  JOB*)  008020 

2500  FORMAT W/5X, ’PROFILE  OAT  A  WRITTEN  ON  FILE  *TAP£2*  AS  FOLLOWS!*)  0080*0 
2510  FORMAT (5X,A5,2X,*N0  OATA  WRITTEN*)  008060 

2520  FORMAT (5X,A5, 2X,*OATw  FOR  ANGLES  i  0*,8I4,*  180*)  008080 

2530  FORMAT (5X ,«5 , 2X , *0 AT  A  FOR  ALL  19  ANGLES*)  0  0810  0 

008 120 
008140 

END  008163 
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i 


SUBROUTINE  TESTn(NPM) 


J  ECK  1  SU3RUUT  1  nE  'TESTN' 

this  subroutine  io  called  from  the  •OfiEUftii*  main  deck  to  i 

TEST  PARAMETER  OATA. 


MOST  TEST  PAR-METERS  ARE  OEFINEO  EY  THIS  SUBROUTINE. 


OImENSIOh  -TN ( 2m) , OPCCO( 6) 

COMMON  M,MM,Il,IM,NC.L.N,IO,DIST 
COMMON  /mTTNC /  ATNC( 2m) ,ATNa (24) ,SX122> 

COMMON  /HEAOC/  T  E  ST  (  b )  ,  T  T  <  b,  6)  ,  Q  A  T E  ,  R  JN  (  b )  ,  I  PA  GE  ,  I  VE  R,  A  G 
I  IT,Pl,IHH,ir8,P8,IH8,FINPR6,PV,CRI  , PS < b , b> , OPO < 2 , 6 >  ,OPC 
2,  PSC(63 ,PSU,NP,PSIF (b) , PSCF (b) , NRC (b) , IOC ,OPCDM , OPO 1.  OP 
0 1 COM 0(b) ,  RUNG ( o) , IC, OATN(o)  ,  IFC ( b)  ,  IFCC,IFI(6>  , I  FI I 
ARRAY  •  ATN  •  CONTAINS  THE  ABSORPTION  COEFFICIENTS  FOn  jt  A 

CONDITIONS  (59  F  ANO  70  7.). 

ATN(l)  — >  ATN(2m) - 1/3  OCTAVE  VALUES  FOR  BANDS  17  TO  m3. 

OATA  ATN/3.07,0.Q9,0«11,  Q.1M, 3.18, 0.23,  0.25.0. 36,  Q  •  M  5  , 

1  0. 92 ,1.17, 1.47, 1.6s, 2.39, 3.05, 4.02,5.--, 7. 63, 9. 31,12.7 

2  27.15/.ASK/1M*/ ,W/1HW/,Z£RO/1HO/,BLK/1M  / 

3  ,  OPCCO/  2Hsl,2H92»2H93,2H94  ,2H95 ,2H9b/ 


0 

****** »*»*0 
..*»»». .».0 

a 

3 

NPUT  THE  0 
0 
a 
a 
o 

**********  0 
**********  0 

3 

0 

a 

C,0PC<6),  3 
C  (b)  »  OE L N  0 
02  3 

a 

NOARO  jay  3 
3 
0 

0.a8tQ.73,0 
5,16.5m,  0 

3 


36133 
0620  0 
0822  0 
3  82  M  0 
062  o  0 

0823  0 
0830  0 
08320 
06340 
08360 
0a38  0 
08400 
08420 
06m-  0 
08460 
0843  3 
385  00 
08523 
Q35m0 
3  8Fo  0 

08580 
08b  0  0 
06620 
086m  0 
QSbo  0 
08660 
0870  0 
08720 
067  m  0 
087  S  0 
08780 
03800 
08820 
088-0 
08860 
08680 
08900 
08920 
089-0 
08960 
08980 
09000 
09020 
090m0 
090o0 
09080 
09100 
09120 
091-0 
09160 
0  918  0 
092  0  0 
09220 
392-0 
09260 


PARAMETERS  SET  BY  THIS  SUBROUTINE 


NP—  NUMBER  OF  OPERATION  POWER  CODES  TO  BE  PROCESSED  FUR  HIS  'ACI 

ACC  -  AIRCRAFT  CODE 

CRI  — -  COhJECK  REVISION  ID 
PV  -  PROFILE  VERSION  CODE 

IT6,  P8,  Iho  —  TEMPERATURE,  PRESSURE  ANO  RELATIVE  HUMIDITY 
FOR  PROFILE  OATASET  OUTPUT  (F,  IN  HG,  7.) 

IT,  PI,  I HH  -  TEMPERATURE,  PRESSURE  AND  RELATIVE  HUMIDITY 

FOR  STANDARD  CONDITIONS  (F,  IN  HG,  7.) 

OPCC(b)  -  ARRAY  CONTAINING  THE  OPERATION  POWER  COOES  FOR  DATA  TO  BEO 

PROCESSED  FOR  AIRCRAFT  CODE  'ACC'.  0 

JELN  - VARIABLE  CONTAINING  'DELTA  N'  OATA  FOiv  AIRCRAFT  'ACC'.  0 

PSU - POWER  SETTING  UNITS  FOR  PROFILE  DATA;  EG.,  RPR  0 

PSC(b)  -  POWEn  SETTING  VALJE3  FOR  WHICH  OATA  ARE  TO  BE  PROCESSED  0 

FOR  AIRCRAFT  'ACC'  .  0 

I FC (6)  -  FLAG  ARRAY  SET  EOJ A.  TO  1  FOR  SPECIAL  CASE  POWER  SETTINGS  0 

(NO  INTERPOLATION  PERMITTED).  3 

I FCC  -  NUMBER  OF  IFCC'S  >0. 

ATNC(2m)  -  ARRAY  CONTAINING  ATMOSPHERIC  ABSORPTION  COEFFICIENTS 

FOR  NORMALIZED  IN’UT  OATASET  (STANOARu  uAY  CONDITIONS) 

A TN8 (2m) - ARRAY  CONTAINING  ATMOSPHERIC  ABSORPTION  COEFFICIENTS 

FOR  PROFILE  DATA  WEATHER  CONDITIONS. 


OITIONS).  0 


EXs5. 3/9.0 
I T  =5  9 
Pl*29.92 
IHH*70 


TM=15.0  009200 

IFCC=Q  039300 

READ  FIRST  COQE  SHEET  CA*D.  0Q932G 

READ<5,1000)  ACS, ITo ,Fo, lH 3, PV.CRI, DELN  0093hO 

AN  END  OF  FILE  ON  UNIT  5  WI.L  TERMINATE  THE  JOB.  009360 

IF  { EOF (5 ) )  1,2  009363 

IF  ACC* ASK ,  JOS  WIl.  3E  TERMINATED  BY  THE  MAIN  OECK.  0  094J0 

1  AC  C*  ASK  0  09**20 

RETURN  0  09<*h 3 

SET  DEFAULT  VALUES  FOR  »PV*,  'CRi*,  *118',  *P8*  ANO  'IMS'.  00945G 

2  IF  (PV  . EQ.  SLK)  PV=  W  0  09430 

IF  ( CkI  .EQ.  6lK>  CRI=ZERO  009500 

IF  ( IT  8  .LT.  1)  I T8=  59  009520 

IF  (iHd  .lT.  1)  IH8=70  Q095aO 

IF  (Pa  .LT.0.1J  P8=2  9. 92  009560 

IF  ( ABS (DELN)  .LT.  .001)  DE.N=0.0  009530 

TMd=(FLOAT(iTd)-32.0)*EX  009600 

REAO  SECOND  CODE  SHEET  CARD  FOR  AIRCRAFT  »ASC *1  009620 

RE  AD  (5 , 1030)  NP,  PSU,  (PSC  (I  )  ,  IFC  (I )  ,  OPCC  ( I )  ,1  *1 ,  NP)  0096-.0 

IF  (NP  .GT.  NPH)  GO  TO  60  009660 

IF  (NP)  20,20,9  009630 

5  OO  10  1=1, NP  009700 

IF  (OPCCII)  .EQ.  9LK)  OPCC (I ) *DPCCQ (I)  009720 

IF  (IFC(I)  .GT.  0)  IFCC= IF  CO ♦ 1  0097h0 

IFCL  COUNTS  THE  NUMBER  OF  A/B,  MET ,  ETC.  SPECIAL  CASES.  0397o0 

10  CONTINUE  009780 

' FIMPR8  *  IS  THE  IMPEDANCE  RATIO  FOR  NORMALIZED  AND  PROFILE  CONDITIONS  00980 0 
20  FIMPk8*SQRT ( ( 273. 0*TM)/(27  3.  0*TM6) ) *P87P1  009820 

IF  (ITS  . EQ.  59  .AND.  1H6  .EQ.  70)  GO  TO  30  009840 

CuhPUTE  ATMOSPHERIC  ABSORPTION  COEFFICIENTS  FOR  PROFILE  DATASET  0096a0 

CUNQIUUNS  IF  HEATHER  IS  NOT  STANDARD  DAY.  009830 

CALL  ALPH(FLOATUHd)  .FLOAT  (IT8)  , ATN8.IL, IH)  009900 

GO  TO  35  009920 

ARRAY  ATN(I)  contains  THE  ATMOSPHERIC  ABSORPTION  DAT«  FOR  STANDARD  0095-.0 
JAY  CONDITIONS.  009960 

30  OO  12  1=1,24  009930 

32  ATN8  (X) =ATN(I)  0100  JO 

35  OO  mG  1=1,24  010020 

<♦0  ATNC  (I)  =ATN(IJ  010040 

RETURN  010060 

30  WRITE (6, 2100)  NP.NPM  010030 

95  ACC* ASK  010100 

L000  FORMAT ( A3.2X, 15,F5.0,I5, IX ,A 1, IX, A1 , 1X,F5. 0)  010120 

L030  FORMAT  (II  ,At>,  JX,7  (A6  , IX ,  1 1  ,1X , A 2)  )  0101*0 

’100  FORMAT ( *1  TERMINATE  JC?  BECAUSE  NP>NPm;  NP=»,I2,*  NPM=*,I2)  010160 

RETURN  010130 

END  010200 


I 


c 


c 


010220 

aiJ2-.a 

0102o0 
0 102  AO 
010300 
013320 
010340 
0 103o  0 
010330 
0 1  Oh  0  S 
0 1 Oh2  0 
0 1 0  Lh  3 
310460 
0 1040  0 
010500 
010523 
0  105-.0 
010560 
010530 
0 106 0  0 
010620 
0106*0 


DIMENSION  X(29) ,Y (261  ,  ABC(2<*),  FREQ3124)  010660 

COMMON  M  * MM  010630 

F  (  TEMP,  K£U«0.  01  Q6h7  6400  2*  REL*10.  0**  1  0.022  o8Q74*TEMP  0  1  07  00 

1-0.000Q9589*TEMP**2m  0.  0000  Q03*TEMP**3>  010720 

OAT A  FRE03/50. O,a3.o ,60. 0,  10 0. 0,125.0,160.0,  200. 0,2?  0.0,31 5. 0.  01 07*0 

Ah 00.  0,50j. 0,630. Q,  80  0.0, 10  DO. 0,1250 . 0, lo 00. 0,2000.0,  25 00.  0,3150.0,  010760 
Bh000.0>hh7o.0,p612. 0*7096. 0*8943.0/  010730 

OATA  X/0. 0*0. 25*0. 50*0. 6*0. 7  *0.8*0. 9*1. 0*  1. 1*1  .  2*1. 3*1. 5*  1. 7  *2.0*  010600 
A2.3*2.5*2.3*3.  0*3.3,  3.6*4.  15*4. 45*4.8*5.25 *5.7 *o.Q5*6»5*T  .0*10.0/  010820 
DATA  Y/ 0.0, 0.315, 0.7  00, 0.84,  0 . 53  *  0. 975 , 0 . 9 9b , 1 . 0 , 0 . 9 7 , 0 .9,0.64,  010840 

AQ.7?*0.b7 *  j . 5  7  *0.495  *0.45*  0.4,0.37*  0.33*  0.3*  0.26*  0.24a*  0.  23*  0. 22*  010660 
60.21,0.205*0.2,0.2*0.2/  JIO08O 

HA*F  (TEMP,.REl)  0  10900 

FTl=0.Q037tJ&/85337*l0«0*,(  0.  004 a 8 333333 3* T EMP)  010920 

FT2*2.h9315913o02E-6*10.  0**(  0 . 00 Q633»TEMP)  0109h0 

DO  100  J=IL,IH,MM  010960 

FREQ*FREQ3(JJ  010930 

HMX= (FREQ/1010  .0) «»0 .5  0  110  0  0 

HN=HA/HMX  011020 

IF  (HN-t.50)  30,20,20  011040 

20  Al.  N*  0.  2  0  11060 

GO  TO  60  011080 

30  IF  *HN>  40*40,50  011100 

*0  Al  N*  0.0  011120 

GO  TO  60  011140 

50  ALN= ATKN< X, Y, 29, 2 , MN)  011160 

60  A0C (  J) 3FREu*FT1»Aln*FT2»( FREQ**2.05)  OlllaO 

100  CONTINUE  011200 

RETURN  011220 

. . . 

NOT  E I  011260 

THE  FOLcuWINS  FTTEHP.AEl)  15  T 4E  SAME  As  AdOVEI  311230 

F(  TEMP,  RED  =10 .0**  (A^OGIO  (  HZ  u )  - 1 . 97  27h6oh  ♦  0.  0  2  2  e  8  0  7  *  •  T  -  -►  011300 


subroutine  alphtr el, temp, a  sc, II, I mj 


JECK  2  SUBROUTINE  *AlPh« 

THIS  SUBROUTINE  CALLED  FROM  SUBROUTINE  'TESTN'  COMPUTES  THE 
ATMOSPHERIC  ABSORPTION  COEFFICIENTS. 

IN  THIS  SUBROUTINE,  THE  PROCEDURE  USED  TO  CALCULATE  THE  COEFFICIENTS 
OF  ATMOSPHERIC  A3S0RPTI  ’*  IS  THE  SAME  AS  DESCRIBED  IN  SAE  ARP  866A. 

SUBROUT INE  ALPH ( REl , T EM P , AS C , II ,IM) 

MHER  E . 

REL  -  RELATIVE  HUMIDITY  IN  PERCENT 
TEMP  -  TEMPERATURE  IN  DECREES  FAHRENHEIT 

AoC  -  ARRAY  CONTAINING  ME  COMPUTED  COEFFICIENTS  OF  ATMOSPHERIC 
ABSORPTION  IN  C8  PER  1000  FEET 
IL  -  FIRST  aANO  FOR  WHICH  ABC  IS  COMPUTED 
IH  -  LAST  BAND  FOr  WHICH  ABC  IS  COMPUTED 


c,uo nuou  o 


l-0.0  00  095a9*TEMP**2*6.00  00  00  3MeMP*#3> 

ALHX«FT 1*FREQ  IS  THE  SAME  AS  THE  FOLLOWING! 

ALMX«10.0**<ALO&10 (FREQ) -2 .*21**0. 2 01*TEHP/60. 0) 

FT  2*  <FRE0**2.  06)  IS  THE  >A«1E  AS  THE  FOLLOWING! 

10.0** (2. 05»ALOG10 (FREQ/ 10 00.0) ♦ 0. 0 0 0633*T EHP-1 .45 325) 

THE  FOLLOWING  TWO  CAROS  ARE  REPLACED  8T  LABEL  60  IN  THE  PR03RAH1 
60  ALH*ALHX*ALN 

AdC( J)*AlHM0.0** (2. 05*ALOG10 (FREQ/ 1000.0) *0. 000633* TcHP-i. 65325) 


ENO 


011320 

011340 

011360 

011300 

011400 

011420 

0114-.0 

011460 

OllAdO 

011530 


FUNCTION  ATKN(X,Y»N,K,XI> 


DECK  3  FUNCTION  '  A  T  KN  • 

THIS  FUNCTION  IS  CALLEO  ONLY  F-COH  SUBROUTINE  *AlPh*. 

ATKN  AITKEN  INTERPOLATING  FUNCTION 
USAGE... 

Z*ATKN(X, Y,N,K,XI) 

WHERE... 

X  -  TABLE  OF  INDEPENDENT  VARIABLE  VALUES, 

MUST  BE  INCREASING  -OP  THIS  REVISED  ATKN  ROUTINE) 

Y  -  TABLE  OF  DEPENDENT  VARIABLE  VALUES. 
n  -  NO.  OF  POINTS  IN  TAB.ES  X  AND  Y. 

K  -  DEGREE  OF  INTERPOLATION  DESIREO. 

XI-  X-VALUE  FDR  WHICH  INTERPOLATION  IS  DESIRED. 

THE  XNTEPOLATEO  VALUE  IS  RETURNED  AS  THE  FUNCTION  VALUE 


DIMENSION  X  C N) ,  Y<N) ,XX< 13) ,YV (13) 

DATA  KMAX/  12/ 

IF  (  K  «t>T •  KMAX  .OR.  K  .bE.  0  >  GO  TO  300 

K1»K*1 

10  IF  (XI-X(D)  20,20,30 
20  LL»0 

GO  TO  200 

30  IF  (X(N)-XI)  40,40,50 
•*0  LL»N-K1 
GO  TO  200 
50  LL*1 
LU*N 

60  IF  (LU-LL-1)  ISO, ISO ,70 
70  LI«(LL»LU) /2 

IF  ( X (LI) -XI )  90,00, 90 
90  LL*LI 
GO  TO  60 
90  LU*LI 
GO  TO  60 

190  LL«LL-(Kl*l)/2 

IF  (LL)  20,200,190 
190  IF  (LL+K1-N)  200,200,40 
200  00  210  I«1,K1 
Il«LL*I 

XX (I )«X (Zl) -XI 
210  YY (I )»Y (I 1) 


011520 
3115*0 
011560 
011590 
011600 
011620 
0116*0 
011660 
011690 
011700 
011720 
011740 
0 117o0 
011790 
011800 
011820 
011840 
011860 
011880 
011900 
011920 
011940 
011960 
011980 
012000 
312020 
012040 
012360 
012090 
012100 
012120 
012140 
012160 
012180 
012200 
012270 
0122*0 
012260 
012280 
012300 
012320 
012340 
012360 
012380 
012400 
012420 
012440 
012460 
012480 
312500 
012520 
012540 
012560 
012580 
012600 


l»0  220  1*1, K  012b20 

00  220  J*I,K  0 126  *»0 

220  YY (J*l) -XX(I))) *<YY<I>  *XX(J»1)-YY (J*1)*XX(I) >  012660 

ATKN*YY (K1J  012680 

RETURN  012200 

012720 

303  PRINT  1000,  <  012740 

1000  FORMAT  <3H0K>, 112, 33H  IS  INCORRECT  FOR  FUNCTION  AT KN)  012760 

CAUL  SYST EM (200, 01  012780 

ENO  012800 


SUBROUTINE  HEADS (IPH) 


012820 
'  0 12640 
>012860 


DECK  4  HEADS*— PRINTS  PAGE  HiAOINGS 

THIS  SUBROUTINE  CALLED  FKOH  ROJTINES  *OMEGAll*,  'COIST*  AND 

* PLT  *  PRINTS  THE  block  HEAOINGS  at  the  TOP  OF  All  output  sages. 


012880 
012900 
012920 
012940 
012960 

THE  PhGE  HEAOINi  BLOCKS  ARE  EITHER  112  CHARACTERS  HIDE  (FORMAT  .ABELS012980 
2000  ETC.)  OR  126  CHARACTERS  HIDE  (PROFILE  DATA;  LABELS  3000  ETC).  013000 

013020 

• IPH  *  IS  THE  PAGE  HEAOING  COOE.  013040 

013060 

13080 


01  HE NS I ON  SIC (6)  ,  PAGE (  6), PAG (15), 

1  S17(4),S1S(2),S19(5) 

COMMON  M ,IDM ( 3) , NC, L,N, ID 

COMMON  /HEAOC/  TEST (6) ,TT(6,6) , DATE, RUN (6) ,IPAGE,I VER, ACC,OPC (6) , 

1  IT, PI , 1HH, 1T8,P6 ,  IH 6, FIHPR3 ,PV ,CRi , PS (a ,61 ,OPO (2,6) ,0  =  CC (6> ,OELN 

2,  PSC (6) , PSU, NP, PSIF (6) ,PSCF<6) , NRC (6) , ICC ,OPCDM, OPD1, 0P02 

3,  COMO (6) , RUNC (6),IC,DATN(6),IFC(6),IFCC,IFI(6)  ,IFII 

OATA  Sir/8HPER:EIWE,8HD  NOISE  .BHLEVEL  (P, 

2  4  HN  Od  )  /  ,  S18/BHTONE-COR, 6HRECTED,  /,  S19/  8HA-HEIGHT , SHED  OVERA 

3,  BHLL  SOUND,  8H  LEVEL  (,  4HOBA) /  , 

4  S1C/6HNJISE  l£, 6HVEL  AS  A,8H  FUNCTIO, 8HN  OF  AND, 8HLE  AROUN, 

5  6 HD  SOURCE/, BlK/IH  /, PAGE/1HC, 1HD, 1HE, IMF ,1HG , 1HJ/ 

OATA  PAG/2H1  ,2H2  ,2H3  ,2N4  ,  2H5  ,2H6  ,2H7  ,2H8  ,2H9  ,2H10,2H11, 
12H12,2H1J,2H14,2H15/ 


IP«IPH 
IF  (IP-1)  1,1,5 
1  HRITE (6 , 20 00) 

GO  TO  20 
5  HRITE(6 ,3000) 

GO  TO  (20, 60, 60, 70, 60, 55), IP 

PRINT  NORMALIZED  DATA! 

20  HRITE(6,2Q10) 

GO  TO  160 

PRINT  *PNL  *  PROFILE  OATA  PAGE  I 

50  HRITE(6«3Q10)  S17  ,BLK,BLK, B.K 
GO  TO  100 

PRINT  *PNLT* ,  *AL*  ANO  *ALT«  P.OT  PAGE! 

9b  HRITE (6, 3010)  S1C,3LK 
HRITE(a ,3100)  IVER 
HRITE(6,3210>  ID,TEST(1) 

GO  TO  102 

PRINT  *PNLT*  PROFILE  0*TA  PAGE! 

60  HR1TE(6,3010)  S18,S17,BLK 
GO  TO  100 

PRINT  * AL  *  PROFILE  OATA  PAS  El 

70  HRITE(6,3010)  S19,BLK,BLK 
GO  TO  100 

PRINT  'ALT*  PROFILE  DATA  PAGE! 

60  HRITE(6 , 3010)  S1B,S19 
GO  TO  100 


013100 

013120 

013140 

013160 

013180 

013200 

013220 

013240 

013260 

013280 

013300 

013320 

013340 

0133o0 

013360 

013400 

013420 

013440 

013460 

013460 

013500 

013520 

013540 

013560 

013560 

013600 

013620 

013640 

013660 

013680 

013700 

013720 

013740 

013760 

013780 

013600 

013620 

013640 

013860 

013880 

013900 
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oc>  ou 


w ABELS  100  TO  lid  - -  PRINT  THE  REMAINDER  OF  THE  HEADI NO  3 LOCK  FOR  013920 


THE  PROFILE  OATAi  0139*0 

100  WRIT E ( 6 i 3100)  IVER  013960 

WRIT  E (6  *  3200)  TEST(l)  013980 

102  WRITE (6 ,33  00)  KUNC (I C) » ACC  014000 

WRITE(b  f 3400)  (TT Cl, 1) ,1 «1 .3) , 0PD1, OP02 ,IT6, OPCOM  014020 

1,  (TT (III) >1*4(6) , PSC ( ICC) ,PSU,P8,PV  014040 

IF  (L)  105,105,110  01*060 

105  MRITE(6, 3500)  3LK ,8L K, IH6,  DATE  314090 

WRIT E( 6 , 352 0)  BLK.BLK,  PACE ( I P) , PAG (IP ACE)  014100 

GO  TO  115  014120 

110  WR1TE(6, 3500)  PS(3;L),PS(4,w),IH6,0ATE  014140 

URITE(e,3520)  PS (5 »L) >PS (» ,. > ,P AGCC IP) ,PAG (IPAGE)  014160 

115  HRITE(6,3015)  01*190 

IF  (IP  .EQ.  6)  SO  TO  999  014200 

MRITE(6, 3030)  (I ,I«1C , 16 0, 10)  014220 

HRITE(6,3005)  0142*0 

GO  TO  999  014260 

LABELS  lbO  TO  500  - -  PRINT  THE  REMAINDER  OF  THE  HEADING  BLOCK  FOR  014260 

112  CHARACTER  HtAUINGS*  014300 

15  0  WRIT  £ (b , 2 100)  IVER  014320 

NRIT£(6,2200>  ID, TEST ( 1)  014340 

WRIT£(6,23G0)  9LK , ACC  014360 

C  PRINT  REFERENCE  (NORMALIZED)  WEATHER  DATA  I  014390 

WRITE(b,2400)  (TT (1 , 1) , I«1 ,3) , OPO ( i,L) • OPO (2, L)  ,IT ,  OPC(L),  014400 

1  (TT (1,1) ,1*4,6) , PS ( 1, L ) , PS ( 2  ,L ) ,P1 ,P V  014420 

WRITE(6 ,2505)  PS ( 3,L ) ,PS (4 ,L ) , IHH, O ATE  014440 

WRITE(b,25lO)  PS(9,t)  ,PS(6,D,0ELN, PAGEUP), PAG(IPAGE)  014463 

WRIT  E (6 ,2015)  014480 

NKIT£(6,203fl)  (I ,1*10, 190,10)  014500 

GO  TO  900  014520 

900  WRITE(6,2005)  01*540 

995  RETURN  014560 

2090  FORMAT ( 1H1, 11X ,1H ( ,1 10 (1H-),1H>)  014590 

2005  FORMAT ( 12X,1H ( ,110X, 1M) )  014600 

2010  FORMAT < 12X, * (  TABLE*  NORMALIZED  SOUND  PRESSURE  LEVEL  (DB)*,41X,  01*620 
1  * ) IDENTIFICATION**, 7X,*) * )  014640 

2015  FORMAT (  12X, 1H ( ,1 10 (1H- > , 1M1 )  014660 

2030  FORMAT! 12X,*(  BAND  CENTER*,  41X,*ANSLE  (DEGREES) *  ,42X,*)*/  014680 

112X, * (  FREQ  (HZ)  *,  5X, 1HQ ,1 815 , *  >*>  014700 

2100  FORMAT (12X,*(*,10X,*l/3  3CT4VE  BAND*,62X,*>  OMEGA  11 .* , I 1, 11X, *) •> 0 1*7 20 
2200  FQRMAT(12X,*<*,10X,*DISTAnCE  **, IS, *  FEET  *,55X,*)  TEST  *,A10,  0147*0 

1  6X, *) *)  01*760 

2300  FORMAT ( 12X,* (* ,67 (1H-) ,* )  RJN  *  ,  A2 , 14X , * ) •/  12X,*(  NOISE  SOUR014780 

ICE /SUBJECT I* , 7X,  *(  OPERAT ION** ,loX,*)  METEOROLOGY (*,  14 X,  Q14800 

2  •)  AIRCRAFT  CODE  •  , A3, 3X  ,*  )  *)  014820 

2400  FORMAT (12X,*(*,  3X,2A9,  A7,  1X,*(*,  3X,2A10,5X,*  )*, 3X, *TEMP*,6X,  014640 

!•**, 15,*  F* ,  6X, * )  OPERATION  CODE  »,A2,3X,*  ) •/  12X,*(*,  3X.2A9, A7 014860 

2,  1X,*(*,  3X , 2A6, 13 X, *  )*,  3X,*BAR  PRESS  ■♦,  F5.2,*  IN  HG*  ,  2X,  014880 

3»>  PROFILE  VERSION  *,A1,*  )*)  014900 

2505  FORMAT (12X,*(*»  29X,  •(*,  3X,2»6,13X,*  )♦,  3X,*R€L  HUMID014920 

1  »*» 15, *  X*,  6X**)  • , A 10 , 1 IX , » ) • )  014940 


2510  FORMAT (12X,1H(,29X,1H(,3X,2A6,13X,  12H  )  DELTA  N  »,  F6.1,  3H  DB,  014960 
1  8X,«H)  PAGE  , A1 , A2 , 12X, 1H) )  014960 

3000  FORMAT (1H1,  4 X, 1H ( ,1 24 ( 1H- ) , 1H) )  015000 


289 


3035  FORMAT  I  5X,1H( ,124X, 1H) )  015020 

3010  FORMAT  t  5X,*(  TABLEl  *,  710 ,3»X,* > IOEMT IFICATION ** ,7X , *) •>  015040 

3015  FORMAT (  5X,1H ( , 124( H-) , 1H> I  015060 

3030  FORMAT (  5X,*(  DISTANCE*,  5  IX  ,* ANGLE  (DEGREES)*,  49X,*)*/  015080 

1  5X,*<  (FEET)*,  »X,*0*,  1016,*  )*)  015100 

3100  FORMAT (  5X,*(*,  101X,*)  OMEGA  11. *, XI, 11X, •) •)  015120 

3200  FORMAT  (  5X,*(*,10X,  *AS  A  FUNCTION  OF  ANGLE  ANO  OISTANCE  FROM  SOUR0151*0 

1CE*,4*X,*>  TEST  *,A10,  6X, •) *)  015160 

3210  FORMAT (  5X,1H(,1QX,1 OHOISTANCE  *,I5,5H  FEE7,71X,*>  TEST  *,A10,  015100 

1  6X, •) *)  015200 

3300  FORMAT ( 5X  ,♦  (•  ,  101  ( 1H-) ,*)  RUN  ♦ , A2, 14X, • ) */  5X,*(  NOISE  SOUR015220 

ICE/SUB JECT  I* ,  11X ,  •(  OPERAT  IONi*  ,22X  ,*)  METEOROLOGY  I* ,  20X,  015240 

2  *)  AIRCRAFT  COOE  *,A3,3X,*)*)  015260 

3430  FORMAT (  5X,*(*,  5X,2A9,A7,  3X , * (* , 5X, 2A10  ,  OX,*)*  5X , *TEMP* , 6X, 0 15200 

1*»*,I5,*  F* , 10X, • )  OPERATION  COOE  *,A2,3X,*  )•/  5X,*(*,  5X , 2A9, AT 0 153 0 0 

2,  3X, * (• ,  5X,2A6,16X,  *)*,  5X,*BAR  PRESS  >* ,  F5.2,*  IN  HG*  .6X.015320 

3*>  PROFILE  VERSION  *,A1,»  )•)  015340 

3500  FORMAT!  5X,*(*,  33X,  *<*,  5X,2A6,16X,  *)*,  5X,*REL  MUMI0015360 

1  ■*  » 15  »•  X*,10X,*)  • ,A1Q,11X,*>*>  015300 

3520  FORMAT ( 5X,  *(*,33X,*(*,  >X,2A6,16X,  *)*,33X,  015400 

1  •)  PAGE  *,A1,A2,12X,*)*)  015420 

ENO  015440 


SUBROUTINE  RSPlN< NN, IERR) 


C  DECK  5  RSPIN - REA J  SPL  INPUT 

C  THIS  SUBROUT INE  IS  CALLEO  FROM  THE  'OMEGA11'  ROUTINE  TO  INPUT  THE 
C  NOkMAlIZED  JATASETS  FROH  FILE  * T AFE7  '  FOR  N  OPERATION  POWER  CODES. 

C  EACH  NORMALIZED  DATASET  CONTAINS  THE  FOLLOWING  CARO  TYPESl 
C  (1)  ONE  'COMOECK'  NAME  CARO  (OPTIONAL— DEPENDS  ON  THE  TYPE  OF 

C  UPOATE  RUN  USED  TO  CREATE  THE  REFERENCE  FILE). 

C  (2)  THREE  COMMENT  CAROS  WHICH  IOENTIFY  THE  NORMALIZED  DATA. 

C  (3)  THIRTY-EIGHT  SPl  OAT  A  CARDS  —  2  PER  ANGLE  FOR  19  ANGLES. 

M 

C  The  NORMALIZED  DATASET  CARO  ~ OR HAT  IS  DESCRIBED  IN  THE  WRITE-UP 
0  ENTITLED  “CARO  FORMAT  FOR  GROUND  RUN-UP  NOISE  NORMALIZED  OAT  ASETS". 

C 

C  THESE  DATASETS  WERE  WRITTEN  3Y  THE  OMEGA  a  PROGRAM. 


CARD  FORMAT  FOR  ThE  SPl  DAT  At 

THE  OATaSET  NUMBER  IS  IN  COLUMNS  1  TO  12  OF  EACH  CARu.  THE  CARD 
SEQUENCE  NUMBER  IS  IN  COLUMNS  13  TO  15.  COLUMNS  lb  TO  20 
CONTAIN  THE  ANGLE  AT  WHICH  THE  DATA  WERE  COLLECTED. 

THE  SPL  POINTS  (XXX.X)  ARE  STORED  AS  FOUR  DIGIT  INTEGERS  IN 
COLUMNS  21  TO  60  ON  A  MAXIMUM  OF  2  CARDS  PEK  SPECTRUM. 


ARRAY  OPCSP  CONTAINS  SPECIAL  CASE  OPC'S  FOR  AFTERBURNER,  WET  OR  WITH 
JETS  WHICH  HAT  NOT  BE  INTERPOLATED. 

NOPCSP*OaMENSION  OF  ARRAY  'OPCSP*. 

01 HENS I ON  0PCSP(8I 

COMMON  MfHH,IL,IHlNC,L,N,IO,  0IST,MEAS(3) , F SPL < 19,24,6) 

COMMON  /HEAOC/  T EST( 6) ,TT(6,b) , DATE ,RJN( 6) ,IPAGE,I VER, ACC ,OPC ( 6) , 
1  IT,Pl,IHM,ITo,Pa,IH8,FINPR5,PV,CRI,PS<&,6),0PD(2,6) , OPCC ( o) , DELN 

2,  PSC (b ) , PSU, NP, PSIF (6) , PSC1 (6) , NRC (6) ,ICC ,OPC JM,OPU 1, OPD 2 

3,  COMO (6) ,RUNC (6) ,IC,OATN(b)  ,IFC(b) ,IFCC,IFI (6) ,IF II 
DATA  0PCSP/2HQ1, 2H02 , 2H03, 2H 1 0, 2H35 , 2H3a , 2H42, 2H49/ 

DATA  NOPCSP/a/, ASK/ 1M*/ , I CDM/ 1/ 

*ICOH  *  IS  UEFINEO  AS  FOLLOWS  AFTER  THE  FIRST  DATASET  IS  READ  FROH 
FILE  *T APE7 •  (INITIALLY  *ICOH*«l)l 

ICOH»l  —  'COMOECK'  CARD  IS  PART  OF  THE  NORMALIZED  DATASET. 

ICOM»0  —  'COMOECK'  CARU  IS  NDT  PART  OF  THE  NORMALIZED  DATASET. 
IERR*0 
IFII *0 
N»0 

REWINO  7 

IF  (ICOM)  15,15,5 

REAL  ‘COMOECK*  OR  FIRST  'COMMENT*  CARO  (CO  CHECKS  CARD  TYPE)  I 
5  RE AD (7 , 10 1Q>  CO, 0 ACC ,OOPC, OJ ATM, DTEST ,JRUN 
IF  (EOF (7) )  120,10 

FOR  'Cu>ASK*  ,  THE  'COMOECK'  NAME  CAROS  ARE  IN  THE  REFERENCE  FILE  I 
10  IF  (CU  .Em.  ASK)  GO  TO  15 


015460 
‘  0 154  6  0 
k  0 1550  0 
015520 
015640 
015560 
015530 
015600 
015&20 
0 156- 0 
015660 
015680 
015700 
015720 
015740 
015760 
0 157  a  0 
015800 
015820 
'015340 
0 15860 
015880 
015900 
015920 
015940 
015960 
015980 
016000 
016020 
1 0 16  0- 0 
016060 
016080 
016100 
016120 
016140 
016160 
016130 
016200 
016220 
016240 
016260 
016280 
016300 
016320 
01b340 
016360 
016380 
016400 
016420 
016440 
016460 
016480 
016500 
016520 
0165-0 
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ICOM*0 
GO  TO  20 

2  RE AO  FIRST  • COMMENT  *  CAROl 

19  RE  AD  (7 , 10 10)  CJ,OACC,uOPC, OOATN, QTEST.ORUN 
IF  (EOF (7) )  120,20 

20  IF  (iiACC  .£&.  ACC)  GO  TO  3  0 

2  READ  THROUGH  THIS  NORMALIZED  DATA  DECK  (GO  CAROS). 

OO  25  1*1,40 
25  READ (7, 1010)  CO 
IF  (ICOM)  15,19,30 
C  READ  'COMOECK*  CAROl 
20  REAJ (7 , 10 10)  CO 
GO  TO  19 

C  DATA  FOR  AIRCRAFT  • ACC*  HAS  FOUND  IN  THE  REFERENCE  FILE  I 
35  IF  (N)  90,50,40 
•»0  00  45  L*1,N 

C  FOR  *OOPC*OPC(L) *,  THIS  IS  AT  .EAST  THE  SECOND  OATASET  WITH  THIS 
C  OPC (L) I 

IF  (OOPC  .EQ.  OPC(L))  GO  TO  66 
45  CONTINUE 
50  N*N»1 
L*N 

00  52  1*1 ,NOPCSP 
C  CHECK  FO*  SPECIAL  CASE  OATAt 

IF  (OOPC  .EQ.  OPCSP(I) )  GJ  TO  54 
52  CONTINUE 

IF  (N  .GT.  NR)  GO  TO  150 
GO  TO  04 

94  IF  ( IFCC  .GT.  0  .OR.  N P  .iE.  0)  GO  TO  60 
H*N-1 
L*N 

5  REAO  THROUGH  THIS  NORMALIZED  DATA  DECK  (40  CAROS) . 

DO  50  1*1, *.0 
50  READ (7 ,1010)  CO 
GO  TO  75 

60  IF  (N  .GT.  NN)  GO  TO  150 
C  SET  ANO  INCREMENT  SPECIAL  CASE  FLAGSI 
IFI (L) *1 
IFII*IFII41 

:  SET  THE  TEST  PARAMETER  FOK  THE  L-TH  PONER  CONDITION  (L-TH  OPC) I 
64  OPC  (D*  OOPC 
60  TEST (L)*OTEST 
RUN( L) *DRUN 
OATN  (D*ODATN 

2  REAO  SECOND  'COMMENT*  CAROl 

REAO (7 , 1020)  CONO(L) , (TT (I ,u ) , 1*1 ,6) • 

2  REAO  THIRD  'COMMENT*  CAROl 

REAO (7 , 1030)  OPO(1,L),OPO(2,L)» (PS (Z ,L ) , I* 1, 6) 

C  READ  *SPL  *  DATA  FOR  *NC  *  ANGlES—  NC*19  HERE  I 
00  70  1*1, NC 

C  COMPUTE  COLUMN  ID*  ICHO. 

ICHO*(I-1)*10 

RE AO (7, 1000)  I CM , (FSPL(I,J ,.) , 3*IL, IH,MM> 

C  CHECK  COLUMN  101 

IF  (ICH  .N£.  ICHO)  I  ERR* 1 


016560 
016500 
016600 
016620 
016640 
016660 
016660 
016700 
016720 
016740 
01o760 
016760 
016600 
016620 
016640 
0 166o0 
016660 
016300 
016920 
016340 
016960 
016960 
017000 
017020 
017040 
017060 
017080 
017100 
017120 
017140 
017160 
017160 
017200 
017220 
017240 
017260 
017260 
017300 
017320 
017340 
017360 
017360 
017*00 
017420 
017440 
017460 
017460 
017900 
017520 
017540 
017560 
017560 
017600 
017620 
017640 


€>  C> 


70  CONTINUE  017660 

IF  ( IERR)  76,76,250  017660 

75  IF  (ICON)  65,85,80  017700 

C  REAO  'COMOECK  *  CAROI  017720 

40  RE AO (7 ,1010)  CO  0177*0 

IF  ( £OF< 7 ) )  100,65  0l77o0 

65  READ (7 , 1010)  CO, O ACC ,UOPC, ODATN, 0TE6T , OR UN  017780 

FOR  3 ACC  NOT  EQUAL  TO  ACC,  ASSJHE  THAT  ALL  DATA  FOR  'ACC*  HAVE  017800 

SEEN  REAOt  017820 

IF  ( EOF  17 ) )  100,90  017640 

90  IF  (OACC  .£Q.  ACC)  GO  TO  35  017860 

100  IF  (IFCC  .GT.  0  .AND.  IF11  .L£.  0)  GO  TO  200  017o60 

RETURN  017900 

*  ♦*•**•*•**•*  ERROR  MESSAGES  «♦*»♦♦♦••♦*•*  017920 

120  HRlT£(b, 3100)  ACC  017940 

IERRs2  017960 

RETURN  017980 

150  WRITE (6 ,3  0  0  0)  NN, ACC ,NN  018000 

IERR «3  018020 

RETURN  018040 

200  HRITE(6 ,3200)  ACC  018060 

IERR»4  016080 

RETURN  018100 

250  WRIT  E(6, 2000)  ACC  018120 

300  RETURN  018140 

1000  FORMAT  (15X,  15, 15F<»,1/20X,  15F*.l)  018160 

1010  FORMAT <A1,7X, A3, A2,13X,AlO ,29K,A10, IX, A2)  018130 

1020  FORMAT (11X,A*,1X,2A9,A7,1X,2A9,A7)  018200 

1030  FORMAT (17X,2A10,3(2X,A5,1X,A6))  013220 

2 030  FORMAT (*1  ERROR  IN  NORMALIZED  SPL  INPUT.  DATA  FOR  ACCs  *,A3,  018240 

1  •  WILL  dE  DELETED.*)  018260 

3000  FORMAT <*1  THE  NORMALIZED  REFERENCE  FILE  CONTAINS  OaTASETS  FOR  HOR018260 
IE  THAN  *,I2,*  DIFFERENT  D*ERATION  POWER  CODES  FOR  AIRCRAFT  CODE*  *018300 
2»A3/*  THE  MAXIMUM  NUMBER  PERMITTED  BY  THE  PROGRAM  ARRAY  OIMENSI001632D 
3NS  IS  *,I2/*  NO  OATA  WILL  BE  PROCESSED  FOR  THIS  AIRCRAFT.*)  016340 

3100  FORMAT (*1  NO  NORMALIZED  OATASETS  WERE  F3UND  FOR  AIRCRAFT  CODE*  *,018360 
1A3)  018380 

3200  FORMAT (*1  NO  DATA  FOR  AFTERBURNER,  WET  OR  WITH  JETS  (IFC»0)  FOJN0018400 
1  IN  THE  NORMALIZED  REFERENCE  FI.E.*/  •  ALL  COMPUTATIONS  fo*  ACC018420 

2s  *, A3,*  HILL  dE  OELETEQ  FROM  THIS  JOB.*)  016440 

END  018460 


293 


FUNCTION  ICV(R) 


B 14480 
018500 

C  018540 
5  DECK  6  FUNCTION  »ICU »  0185o0 
C  THIS  FUNCTION  la  CALLED  FROM  NUMEROUS  ROUTINES  THROUGHOUT  THE  018530 
C  PROGRAM.  FUNCTION  *ICV'  CONVERTS  VARIABLE  *R*  TO  AN  INTEGER.  018600 
C  • R*  IS  ROUNOEO  UP  IF  THE  FRACTIONAL  PART  IS  0.5  OR  GREATER.  018620 
C  018640 

MM  M  ***»****»»»•*•*»  M*M»M*»*»M«*»**»MM»M*MMMM«MMMM»aiJ,aQ 

IC  V»R  018700 
DO*iR -FLOAT (ICV)  018720 
IF  (ABS(OO)  *G£.  0.495939)  ICV«ICV» ISIGN < 1  ,ICV )  018740 
RETURN  018760 
ENO  014780 


1)  i> 


SUBROUTINE  CDIST(IRL,C1,II)  oiaaoo 

. . . 

0 18660 

JECK  7  COIST---COMPUTE  SInJlE  fcvENT  NOISE  OAT*  FOP  22  JISTANCES  818630 
THIS  SUBROUTINE  IS  SAtLED  FROM  The  •OHEGAll*  ROUTINE  TO  COMPUTE  The  018900 
PNL,  PNLT,  AL  ANO  alt  PROFILE  '• T ASETS.  018920 

THE  *PNL *  PROFILE  0ATA5-  FOR  EXAMPLE,  CONTAINS  'PR. •  DATA  FOR  0189*0 
ANCLES  0  TO  loO  DEGREES  FOR  22  DISTANCES  FROM  200  10  25000  FEET.  018960 

018980 

- 019000 

019020 

NOT El  £*(13,13)  IS  OEFINCO  ONLT  FOR  FREQUENCIES  SO  (B*17)  TO  800  H2  019040 
( 8*29)  mnO  DISTANCES  400  FEET  TO  6300  FEET.  019060 

E  A*  0  FOR  SX (I) *40 0  FEET  019030 

£**£A(13,J>  FDR  SX(I)»  »300  FEET.  019100 

019120 

•••*»*••••••*•«••••«••••••••••• gi9llt0 

0 1916  0 

DIMENSION  EA(13, 13) ,SENX( 19,22,12)  019180 

COMMON  H ,  Hrl,  I  9NL  ,  IBNH , NC  ,  L,  N  , K,  OIST  ,NEAS  (  71  , FSPL  1 19 , 24 , 6 )  , SPl X  ( 190 192  0 0 
1,24) ,PNLX (19,22,2) ,PNLTX(19, 22,2) ,ALX( 19, 22, 2) , AlTXI 19,  22 , 2) ,  0192  2  0 

2SENX01 19,22, •»)  ,CX0(19)  019240 

COHtlOH  /  ATTNC/  AT  NC(  24), AT  No  (24)  ,  SX  (  22)  019260 

EQUIVALENCE  ( PNL  X ( 1 ,1, 1) , SE  NX ( 1 , 1, 1) )  019280 

ARRAY  'EA'  CONTAINS  THE  EXCESS  ATTENUATION  UATA J  SEE  NOTE  ABOVE.  019300 


DECK  7  COIST— -COMPUTE  SInClE  EVENT  NOISE  DATA  FOP  22  JISTANCES 

this  subroutine  is  called  from  the  ' omega  11*  routine  to  compute  the 

PNL,  PNLT,  AL  ANO  ALT  PROFILE  :'‘TASETS. 

THE  *PNL*  PROFILE  OATAT~~.  FOR  EXANPlE,  CONTAINS  'PM. •  OATA  FOR 
ANGLES  0  TO  loO  DEGREES  FOR  22  DISTANCES  FROM  200  10  2S000  FEET. 


NOT El  £*(13, 13)  IS  DEFINED  ONLT  FOR  FREQUENCIES  SO  (B>17)  TO  800  H2 
( 8*24)  «nJ  DISTANCES  400  FEET  TO  6300  FEET. 

EA*0  FOR  SX(1>  <400  FEET 

£u*E A ( 13, J )  FDR  SX(I)>  »300  FEET. 


DATA  EA/ 

0.00, 

0.00, 

0.  00, 

0*  0 0»  O.OOf 

0.00, 

0.  00, 

1.09, 

2.61,  019320 

1 

4.53, 

6.94, 

10.04, 

13 . 00 , 

0  *u 0, 

0 • 00  t  0 • 00  t 

0.00, 

0.00, 

0.00, 

1.18,019340 

2 

2.68, 

*.57 , 

6.9*, 

9.93, 

12 .53, 

15*00,  0«00» 

o.ao. 

3.00, 

0.00, 

•  00, 0193o0 

3 

1.04, 

2.3*, 

3.96, 

6.05, 

6.55, 

11*  92* 14*  53  f 

17.00, 

0.00, 

0.00, 

0.00,019360 

4 

.38, 

1.25, 

2.35, 

3.74, 

5  .48  , 

7«63  ,10*44, 

13.92, 

16.53, 

19.00, 

0.00,019400 

6 

•  1 3, 

.  66, 

1.38, 

2.25, 

3.35, 

4*74 f  »*40, 

6.68, 

11.4*, 

14.92, 

17.53,019420 

b20 • 0  Of 

.19, 

.63 , 

1.16, 

1.88, 

2.75,  3.05, 

5.24, 

6.98 , 

9 . 18 , 

11.94,0194*0 

715.42, 

18.03, 

20«s0, 

.19, 

.63, 

1 • 10  f  1. 00 , 

2.75, 

3.85, 

5.24, 

6.96, 019*60 

6 

9.18, 

11.94, 

15.42, 

16.03, 

20.50, 

O.OOf  .13, 

.66, 

1.36, 

2.25, 

3.35,019480 

9 

4.74, 

6.  48  , 

6 .68 , 

11.4*, 

14.92, 

17.53,20.00, 

0.00, 

0.00, 

0.00, 

0.00,019500 

A 

.15, 

1.02, 

2.11, 

3 . 48 , 

5  .2 1 , 

7.39,10.14, 

13.64, 

17.00, 

0.00, 

0.00,019520 

o 

0.00, 

0.  00, 

0.00, 

0.00, 

0.00, 

0*00,  1.41, 

3.20, 

5.45, 

6.28, 

11. 00,0195*0 

C 

0  .00, 

0.00, 

0.00, 

0.00, 

0.00, 

0.00,  0.00, 

0.00, 

•  12, 

1.  03, 

2.17,019560 

O 

3 .0  2 , 

5.  00, 

0.00, 

0  .GO, 

0  .00, 

0.00,  0.00, 

0.00, 

0.00, 

0.00, 

0.00,019580 

£ 

0.00, 

.66, 

1  .do, 

3.00, 

0.00, 

0.00,  0.00, 

0.00, 

0.00, 

0.00, 

0.00,019600 

F 

0.00, 

0.00, 

0.00, 

0.00, 

.3  9, 

1.00/ 

019620 

FJsO.15 
C1=DIST*0 .001 


019640 

019660 


ARRAY  ' SX ( 22) *  CONTAINS  EXACT  DISTANCE  VALUES  IN  FEET  (SEE  'OHESA11*  019680 
ROUTINE).  019700 

LABEL  260  LOOP  -  COMPUTE  PROFILE  OATA  FOR  EACH  PROFILE  DISTANCE  019720 

(X)  FOR  HE  L-TH  REFERENCE  POKER  CONOITIONI  0197*0 

DO  260  K*l,22  019760 

*  IRQ*  IS  THE  STANOARO  DISTANCE  INDEX  CORRESPONDING  TO  THE  REFERENCE  019730 
DISTANCE  (PRESENTLY  230  FEET)  T  REFERENCE  DISTANCE  MUST  BE  WITHIN  1  X  019800 

OF  A  STANOARO  DISTANCE - SEE  SX(22).  IRO*2  WHEN  UIST*25Q  *EET.  019820 

SXK*SX(K)*0.001  019840 

02*01-20. Q*ALQG10(SX (K) )  019860 

OU  LOOP  13»  — >  COMPUTE  'SP.  '  SPECTRUM  FOR  K-TH  STANDARD  DISTANCE  019880 
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6  0 
70 
iO 


JO 


100 


NO 


130 

135 

00 


AND  STORE  IN  *SPLX (I  ,  J)  •  • 

00  139  J*IBNL, IBNH.KM 
IF  (J-13)  60,60,100 
IF  (K-3)  100,100,70 
IF  (K-1E)  80,60,90 
EA0«  EA(K-3,J) 

GO  TO  110 
£A0»EA(  13, J) 

GO  TO  110 
EAO«0.0 

akRAYS  *ATN8  (24)  *  ANO  *  ATNC  <  24)  *  CONTAIN  THE  ATMOSPHERIC  ABSORPTION 
OATA  FOR  THE  PROFILE  ANO  REFERENCE  HEATHER  CONDITIONS  RESPECTIVELY. 
110  03*EA04SXK*ATNa< J) 

03*02-03*C1*ATNC(J) 

EA  NEEDED  FOR  OISTANCE  0(2)  IF  *  250  FEET. 

OO  130  I»l,19 
SPLX  (I , J) *FSPl (1 , J,L) »03 
CONTINUE 
CONTINUE 

LOOP  250  — >  COMPUTE  THE  PROFI.E  OATA  FOR  THE  K-TH  OISTANCE  ANO 
I-TH  ANGLE! 

00  250  1-1,19 
IF  (K  .EQ.  IRO)  GO  TO  140 
IF  ( NEAS ( 1) )  loO, 160,140 
CALL  SUBROUTINE  *CPNL'  TO  COMPJTE  PNLX ( I , K , I I ) . 

140  CALL  CPNl(FJ,I,II) 

IF  (PNlX(I,K, II) -9990.0)  160,150,150 
IF  PNLX(I,K,II)  IS  MISSING,  EXTRAPOLATE  MISSING  OATA  POINTS  BY  USING 
THE  SLOPE  OF  THE  PREVIOUS  THO  POINTS. 

•PNLX (I ,K,II) '  ARE  EXTRAPOLATED  TO  MAKE  THE  PROFILE  DATASET  COMPLETE. 
IT  hill  NORMALLY  BE  MISSING  ON.V  HHERE  THE  'SPL*  DATA  ARE  VERY  SMALL 
FOR  LARGE  DISTANCES. 

150  IF  (K  .LE.  2)  GO  TO  160 

PNLX  (I,K,II)»2.0*PNLX(I,<-1,II)-PNLX(I,K-2,II> 

160  IF  (K  .EQ.  IRO)  GO  TO  170 

IF  (NEAS(2)«-MEAS(3>)  250,250,160 

CALL  SUBROUTINE  ‘CPTC*  TO  COMPJTE  TONE  CORRECTION  (PTC)  FOR  THE  I-TH 
SPECTRA  ANO  FOR  THE  *IRD*  (REFERENCE)  DISTANCE  ONLY. 

170  CALL  CPTC  (PTC  ,1) 

STORE  COMPUTED  TONE  CORRECTION  FOR  REFERENCE  DISTANCE  (IRO)  IN 
•CXO(I) *. 


CXO(I)«PTC 
CALL  SUBROUTINE  • 

130  CAlL  oAL(I,II) 

250  CONTINUE 
26 0  CONTINUE 

00  LOOP  400  - - 

COMPUTE  *PNlTX(I,K,II>* 
CORRECTION. 

IF  (M£AS(1)+MEAS(3)) 
K1 » I RO 
K2»IRD 
GO  TO  280 
Kl*l 
KZ-Z  2 


AL*  TO  COMPJTE  ALX(I,K,II)  . 


COMPUTE  SMOOTMED  TONE  CORRECTION  ANO  ALSO 

ANO  • A.TX(I ,K, II) •  USING  SMOOTHED  TONE 


27  0 


270 , 270 ,275 


275 


019900 
019920 
019940 
019960 
019980 
020000 
020020 
020040 
020060 
020080 
020100 
020120 
020140 
020160 
020180 
020200 
020220 
0202h0 
020260 
020230 
020300 
020320 
020340 
020360 
020380 
020400 
020420 
020440 
020460 
020480 
020500 
020520 
020540 
020560 
020580 
020600 
020620 
020640 
0  20bo0 
020630 
020700 
020720 
020740 
020760 
020780 
020800 
020820 
020640 
020660 
020880 
020900 
020920 
020940 
020960 
020960 


r'v— 


i 


I 


i 


k'- 


6 


260  00  *Q«  K*K1 »K2 

IF  <K-1*)  205,290,290 
205  Cl*1.0 

GO  TO  310 

290  IF  (K-16)  295,300,300 
295  Cl«0.2»FuOaT(18-tO 
GO  TO  310 
300  Cl«0.0 

310  IF  (K  .EQ.  IRO)  GO  TO  320 
IF  ( HEAS  (  3) )  33s  ,335  ,320 

COMPUTE  TONE-CORRECTED  A-WEISHTED  OVERALL  SOUND  lEVE*  FOR  EACH 
320  OO  325  1*1,19 

325  AlTXU,K,II)*AlX(I,K,II)  *01*0X0(1) 

IF  (K  .EQ.  IRO)  GO  TO  3*0 
335  IF  ( HEAS ( 1) )  *00, 400 ,3*0 

COMPUTE  TONE-CORRECTEO  PERCEIVEO  NOISE  LEVEL  FOR  EACH  ANGLE! 
3*0  00  3o0  1*1,19 

IF  (PnLXU.K, II)  -9990.0)  3*5,350,350 
3*5  PNLTX(I,K,III*PNLX<I,K,I1)  *C1*CXD<I) 

GO  TO  360 

PNLT  X( I , K , II ) *9999.0 


3s  0 
360 
*00 


CONTINUE 
CONTINUE 
RETURN 
ENO 


021000 
021020 
0210*0 
021060 
021060 
021100 
021120 
0211*0 
021160 
0  21 18  C 

angle i 021200 
021220 
0212*0 
0212o  0 
021280 
021300 
021320 
0213*0 
021360 
021360 
021*00 
021*20 
021**0 
021*60 
021*30 


r 


; 


c 

i  • 
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SUBkOUTINE  CPNL (FJ,I ,11) 


021530 

‘021520 


C  BECK  6  CPNL—  CON  PUT  E  PNL  OATA  FOR  I-TH  ANGLE 
C  CALLED  FROM  SUBROUTINE  ‘CDIST*. 

C  SUBROUTINE  CPNL(I)  COMPUTES  PERCEIVED  NOISE  LEVEi.  (PNL)  JS 
C  METHOD  DESCRIBED  IN  FAR  PARI  36  SECTION  33b. 2.  FUNCTION  - 
C  (SEE  DECK  04)  IS  USED  TO  COMPUTE  THE  NOT  VALUES. 

O 

C  PERTINENT  VARIABLES  USED  BY  CPNL  ARE  I 

C  SPLX  -  ARRAY  CONTAINING  SOUND  PRESSURE  LEVEL  DATA 

C  FOR  K-TH  DISTANCE 

C  PNL  -  PERCEIVED  NOISE  LEVEL  IN  PNOB 

Cl  -  INOEX  OF  SPL  SPECTRUM  FOR  WHICH  PNL  IS  BE I 

C  K  -  INOEX  OF  DISTANCE  FOR  WHICH  PNL  IS  BEING 

C  II  -  INOEX  OF  AkRAY  *PNL*  IN  WHICH  PNL  DATA  ARE 

C  (11*1  OR  2). 


021560 

021580 

021600 

ING  THE  021620 

NOY  0216*0 

021660 
021630 
021700 
IN  DB  021720 

0217*0 
021760 
NG  COMPUTED 0217 80 
COMPUTED  021800 

STORED  021820 

021840 
021860 


IN  THIS  SUBROUTINE  IBNw 
CORRESPONDS  TO  BA NO  40. 
THIS  SUBROUTINE  MUST  6E 
PNL (I)  IS  ONLY  COHPUTE3 
IF  I8NL  ANO  I3NH  ARE  DU 
HAOE  IN  THIS  SUBROUTINE 


**021900 
**021920 

*1  CORRESPONDS  TO  BAND  17  ANO  IBNH*24  ** 0219*0 
IF  THIS  IS  CHANGED  IN  THE  PROGRAM,  **021960 
CHANGED  ACCORDINGLY.  **021980 

FOR  BANDS  IT  TO  *0.  **022030 

TSIOE  THIS  RANGE,  CHANGES  MUST  BE  **022020 

TO  LIMIT  COMPUTATIONS  TO  THIS  RANGE.  **0220*0 

**022060 

L, N, K, OIST, ME AS (3) , FSPL ( 19 ,2*, 6) , SPL X ( 190221 00 

022120 

0221*0 

022160 

022100 

022200 

GO  TO  60  022220 

022240 

IS  150.0  022260 

TO  70  022280 

022300 

NOY  VALUE  (FN)  FOR  SOUNO  PRESSURE  LEVEL  022320 
JJ.  022340 

022360 

022380 

S  2048.0  022400 

TD  70  022420 

0224*0 

022460 

022480 

70  022500 

022520 

(PNL)  FOR  THE  I-TH  SPECTRUH.  0225*0 

10 (SUM)  022560 

022580 


COMMON  h, MM, IBNL , IBNH, NC, 
1,2*) ,PNL (19,22,2) 

SUM*  0 
AMXa-10.0 

OO  60  J*1 BNL i I BNH , MM 
JJ*J 

IF  (SPLX(I.J)  .GT.  9990.0) 
SPLL  *SPLX (I , J) 

.MAXIMUM  SPL  IN  NOY  ALGORITHM 
IF  (SPLL.GT.  150.00001)  iO 

Ua£  FUNCTION  FNOY  TO  COMPUTE 
SPLL  AND  ADJUSTED  BANO  NUMBER 

FN*FNOY (SPLL, JJ) 

MAXIMUM  PERMITTED  NOY  VALUE  I 
IF  (FN  .GT.  2046.0001)  GO 
AMX* AMA XI ( AMX , FN) 

SUM* SUM  *FN 
60  CONTINUE 

IF  (SUM  .LE.  0.0001)  GO  TD 
SUM* (SUM-AMX)  ♦ F  J ♦ A  MX 
COMPUTE  PERCE* VED  NOISE  LEVE. 
PNL(1,K,IX)**Q.0*33. J*ALOS 
GO  TO  100 


GO  TO  60 

IS  150.0 
TO  70 


S  2048.0 
TD  70 


(PNL)  FOR  THE  I-TH  SPECTRUH. 
10 (SUM) 
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* PNL *  =9999.0  FOR  MISSING  OAF Ai  022600 

T  0  PNlU,K,II>  *9999.  0  022620 

10  0  CONTINUE  0 22b-* 0 

RETURN  022660 

ENO  0  2260  0 


FUNCTION  FNOY  (  SPL , JJ ) 


022730 
022720 
0227*0 
022760 

DECK  5  FUNCTION  ‘FNOY  *  022790 

CALLED  FROM  SUBROUTINE  ‘CPNL*.  022800 

FUNCTION  FNO?(SPL,JJ)  COMPUTES  THE  NOY  VALUE  FOR  A  GIVEN  SOUNO  322 820 

PRESSURE  LEVEL  (SPL)  AND  1/3  OCTAVE  BAND  CENTER  FREQUENCY  (Jj>  USING  0228*3 

0  2266  0 
322890 
02290 3 
022923 
022943 
0  2296  0 
022980 
023000 
023020 
0230*0 
023060 
023080 
02310  C 
023120 


DIMENSION  Fl ( 2*»  5 ) , F  M ( 24, V  )  023140 

OAT A  FL/49.,44.,39.9 34 . ,  30 >i  27 . « 24*  » 21«ilft*»3ilb*il5*tl2«(9*iSii  023160 
l*i>  10i| 17<i 21< |9S< i)l< i *6*  <42 • 1 39* *36«»33.*30.»2?»»5*23«»  023180 

623 •} 21 . , 18 • y 15 • 1 2*14 • 1 15 • 1 17 •i23»i29*t 64*  ,60«,56. ,53.951. 9 48 • 9  46*  9  323200 
C*4., 42.,5*40.938.. 34.. 32.. 30.. 2*29. 930.. 31.9 37.941., 91. 01. 85.00 .  023220 

D67. 32. 76. 05, 79.76. 75 .96. 73. 96, 74. 91. 94. 93.13*100. 0.44. 29, 50. 72 .  0232*3 

Es 2 ..51. .49. . 4  7 . . 4o . . 45 ..43.962.941. .5*40. 9 38. .34. 9  32 ..30.92*29..  023260 

F30. . 31. . 36. , 37./  023200 

OATA  Fh/0. 079920, 2*0. 06616 .0.05964, 10* 0.053013, 0.059640 . 2*0. 0530 130233 00 
G . 2*0  . 0*77 12, 2* 0. 0530 13, 0. 0 68 160 9 0. 079520, 0.059o40, 2*0. 09  8068,  323320 

HO. 05 2286, 0.067534, 2* 0.0435 73 . 0.04022190.037349.7*0.034959.0.040221023343 
1,0.03734996*0.034659,2*0.03734590.06357390.04347890.040570,  023360 

J2*  0.  036631,0.0  353369  2*0.03  33339  0.0320519  0.03067  5,6*0.030103,  02338  0 

*7*0.02996 0,2* 0.04228 5, 15*0  .0  30103,9*0.029960/  0234  0  0 

IF  (SPL  .LT.  FL 1 J J, 1 ) )  GO  TO  20  023420 

IF  (SPL  .GT.  150.01  GO  TO  30  023440 

IF  (SPL  .GE.  FL(JJ.l)  .AND.  SPL  .lT.  FL(UU,2)1  GO  TO  40  023460 

IF  (SPL  .GE.  Fu(UJ,2)  .ANC.  SPL  .lT.  FL1JJ,3)1  GO  TO  50  023480 

IF  (SPL  .GE.  FL ( J J,3 1  .  ANu  .  SPL  .LT.  Fl(JU,4))  GO  TO  60  023500 

IF  (SPL  .GE.  FL( JJ.4)  .ANU.  SPL  .lE.  150.00001)  GO  TO  70  023520 

20  FNOVaO.O  023540 

kETUKN  023560 

30  FNOY *5  0  01.0  0  2358 0 

RETURN  023600 

40  FNUY«0. 1*10. 0**(FH(JJ,1) • (S»L-F. <UJ, 1)1)  023620 

RETURN  023640 

50  FnOY«10.0**(FN(JJ,2)*(SPl-F. (UJ,3)I  1  023660 

RETURN  023690 

60  FNOY *10. 0** (FH(JJ,3) *(SP.“F. ( J J, 3) ) )  023700 

RETURN  023720 

70  FNOY»10.0**(FM(UJ,4) *<SPL-F. (JJ,51) 1  023740 

RETURN  023760 

ENO  023780 


THE  METHOD  DESCRIBED  IN  ARP  965A.  (THIS  OIFFERS  FROH  THE  METHOD 
DESCRIBED  IN  FAR  PART  36  SECTION  B36.7  IN  THAT  IT  COMPUTES  THE  NOY 
VALUE  OOMN  TO  0.1  INSTEAO  0~  STOPPING  AT  1.0) 

VARIABLES  REQUIRED  3 Y  FUNCTION  FNOY  ARE! 

SPL  -  SOUNO  PRESSURE  LEVE.  IN  03 
JJ  -  ARRAY  INDEX  CORRESPONDING  TO  A  3AN0  NUMBER 
FL  -  ARRAY  CONTAINING  THE  BANG  SOUNO  PRESSURE  LEVELS  r  RUM  TABLE 
II  OF  ARP  865A. 

FM  -  ARRAY  CONTAINING  THE  RECIPROCALS  OF  THE  SLOPES  GIVEN  IN 
T ABLE  II  OF  ARP  665A . 


SUBROUTINE  CPTC(PTC,I> 


OECK  10  CPTC - CALLEO  FROM  SUBROUTINE  'COIST*. 

SUBROUTINE  CPTC(PTC,I)  computes  the  tone  CORRECTION  FOR  THE 

I-TH  SPECTRUM  AS  OESCRIBEU  IN  r AR  PART  36  SECTION  B36.3. 


WHERE . • 
PTC 
I 


-  TONE  CORRECTION  FOR  THE  I-TH  SPECTRUM  IN  03 

-  INDEX  OF  ARRAY  SPLX  — SPECIFIES  SPECTRUM  USED  TO 
COMPUTE  PTC. 

-  ARRAY  CONTAINI NS  SOUND  PRESSURE  LEVEL  DATA  IN  DB 
FOR  K-TH  OISTANOE 

-  INDEX  OF  OISTANOE  FOR  HHICH  PTC  IS  BEING  COMPUTED 


023600 
023620 
0  238a 0 
0238o0 
0  23o  8  0 
023900 
023920 
0  239*0 
023960 
023990 
024000 
024020 
0240*0 

0  2*0o  0 
024080 
024100 
024120 
024140 
024160 
024180 
024200 
02*220 
024240 
024230 
024290 
024300 
024320 
024340 
024360 
024380 
024400 
02**20 
0244*0 
Q244o0 
024*80 
02*600 
024620 
02*640 
024660 
024530 
024600 
024620 
024640 
024660 
024680 
024700 
024720 
024740 
024730 
024780 
324800 
024820 
02*6*0 
02*830 
02*680 


IN  THIS  SUoROUTINE  IBNt*l  CORRESPONDS  TO  BAND  17  AND  IBNH*24  •* 
CORRESPONDS  TO  BANO  *0.  IF  THIS  IS  CHANGED  IN  THE  PROGRAM,  *• 

this  subroutine  must  be  changed  accordingly.  ** 

PTC  IS  ONLY  COMPUTED  rDR  BANDS  19  TO  40.  *• 

IF  IBNL  ANO  I 3NH  ARE  DUTSIOE  THIS  RANGE,  CHANGES  MUST  BE  *» 
HAOE  IN  THIS  SUBROUTINE  TO  LIMIT  COMPUTATIONS  TO  THIS  RANGE.  •• 


DIMENSION  SPLPP<2*> ,ICT(24J 

COMMON  UMY (  2) , IBNL, I8NH ,OH{ 8 ) , FSPL ( 19, 24, 6) , SPL X ( 19,  24) 
1,SENXD ( 13 ,22, 12) , CXb ( 19) ,SP( 25)  , S (24) , SPL  (  24)  , F  (24) ,  SPLP (24) 
EQUIVALENCE  (F (1) ,ICT ( 1) ) , (SPLP ( 1) , SPL PP ( 1) ) 

C*0.  0 
PTC*  0. 0 
ILL*3 

IF  (IBNL  «GT .  3)  ILL *IBNL 
AMX*-1000.0 

DO  LOOP  *20  —  OETERNINE  MAXIMUM  SPL  VALUE  ANO  ARRAY  INDEX  OF  THIS 
MAXIMUM  VALUE. 

OO  420  J* ILL , I 3NH 
SPL ( J) * SPLX (I , J) 

IF  (SPL ( Jl  .GT.  9990.0)  CD  TO  420 
IF  (SPL(J)-AMX)  420,480,400 
*00  IL 1* J 

AMX*SPL ( J) 

420  CONTINUE 

IF  *AHX  *  <  -900.0  — -  ALL  SPL  OATA  ARE  MISSING  FOR  THIS  S’ECTRUHI 
THE  FOLLOWING  STATEMENT  REALLY  DOESN*T  APPLY  TO  OMEGA  11  DATA! 

IF  ( AHX  .LT.  -900.0)  GO  TO  220 

JO  LOOP  **Q  —  OET ERMINE  FIRST  SPL  VALUE  <  20  OB  FROM  PEAR  TO  THE 
END  OF  THE  SPECTRUMI 
DO  *40  J*IU,IBNH 
IH1*  J 

IF  (SPL(J)  .lT.  20.0)  GO  TO  4»0 
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U  U  CJO  OO  OOOOOO  OH 


44  0  CONTINUE 

02.930 

00  TO  460 

0  249  2  G 

4a0 

0  2491*  C 

30  LOOP  470  DETERMINE  FIRST  SPL  VALUE  <  20  03  FROM  TrtE 

PEAK  TO 

0  249  a  i. 

THE  BEGINNING  OF  THE  SPECTRUM  1 

024980 

.o  0  00  470  J=ILL  j  IL1 

025333 

IL2s1L1~J+ILl 

325033 

IF  (SPL(iL2)  .LT.  20.0)  GO  TO  4S0 

025043 

470  CONTINUE 

025063 

GO  TO  490 

025090 

430  XL 2= IL2  +  1 

0251 0  C 

025120 

Il2  — >  IH1  IS  THE  FREQUENCY  INOEX  OVER  WHICH  TONE  CORRECTION  IS 

025140 

COnPUTEO.  ALL  SPl(J)>20.0  D3  OVER  THIS  RANGE. 

025160 

if  UHi>iL2-d)  <  i,  there  are  at  host  nine  gooo  fspl  values 

IN  THE 

0  2513  3 

SPECTkUM;  THUS  PTCaO.  IN  THIS  PROGRAM  10  GOOO  BANOS  ARE  REQUIRED. 

0252  JO 

025220 

430  IF  (IN1-IL2-B)  22 0,220,5 

0  252. 0 

3  IF  ( IL2  .LT.  3)  IL2»J 

0  252  o  0 

I L2  AND  IH1  ARE  THE  INDICES  OF  THE  FIRST  AND  LAST  GOOO  FSPL 

VALUE  IN 

029280 

THE  SPECTRUM. 

025300 

S(IL2)«0 

025320 

ICT  ( IL2) *0 

0253.0 

FROM  HERE  TO  LABEL  40  CORRESPONDS  TO  STEPS  1,  2  ANu  3  IN  SECTION 

025360 

3  36. 3 . 

326330 

IL3*1l2*1 

025400 

ILla  IL3  »  1 

025420 

ICTUL3)«0 

025440 

S (II  3)  *SPL (1L3)*SPl(IL2) 

025460 

COMPUTE  SPL  CHANGES  (SLOPES)  ANO  SET  ICT(J)  FLAG;  lCT(J)si 

025430 

CORRESPONDS  TO  ENCIRCLEO  SP.  In  ‘FAR  PART  36'. 

025500 

DO  40  J*IL1,IH1 

025520 

ICT (  J)  aQ 

0255.0 

S( J)aSPL(J)-SPL(J-l) 

025560 

IF  ( ABS(S(J)-S(J-1)) -5.0)  40,40,20 

325580 

20  IF  (S(J>  .GT.  0.0  .AND.  S(J)  .ST.  S(J-1>>  GO  TO  30 

025633 

IF  (S(J>  .LE.  0.0  .AND.  SOI)  .GT.  0.0)  ICT(J-1)«1 

025620 

GO  TO  40 

02?6. 3 

JO  ICT (  J)  a l 

Q256oC 

40  CONTINUE 

025680 

FROM  HERE  TO  2  LINES  AFTER  .A3SL  60  CORRESPONDS  TO  STEPS  4 

ANO  5 

025733 

IN  SECTION  3J6.3. 

0  257  JO 

SPLP  (IL2)«SPL  (IL2) 

0257.3 

OO  60  J*IL3,IH1 

0257o0 

IF  (ICT ( J) )  50,30,60 

025733 

50  SPLP  ( J) *SPL ( J) 

3  256  0  3 

GO  TO  60 

025820 

60  IF  ( J  .EQ.  INI)  GO  TO  70 

0256.0 

FOR  FLAGGED  SPL,  COMPUTE  AVERAGE  OF  SPL  BEFORE  AND  AFTERl 

025660 

SPLP  (J)  a0.6*(SPL(J-l)4SPL(  >1)  > 

025680 

GO  TO  60 

025900 

70  SPLP(J)«SPL(J-1) »S(J-1) 

02592C 

COMPUTE  NEW  SLOPE  (S')  —  STEP  51 

0259.3 

40  SPU)aSRLP(J)-SPLPU-l) 

0  259o  3 

SP (IL2) »SP(1l3) 

025980 

SP(IH1*1> «SPUrtl)  026000 

F f<OM  HERE  TO  LABEi.  210  CORRESPONDS  TO  STEPS  6  TO  10  IN  SECTION  336.3.026020 

first  spl * *»initial  sph  026040 

SPLPP(IL2)*SPL(IL2)  02o060 

OO  210  u»lLZ,  Irll  0 ZoO  3 0 

IF  (j-IHl)  90 > 100*100  026100 

COMPUTE  THE  AVERAGE  SLOPE  —  STEP  6<  026120 

30  SAs  <SP<J)»SP< J*l)  »SP(J+ 21  1/3.0  0261*0 

ADO  THE  AVERAGE  SLOPE  TO  THE  PREVIOUS  SPL“ - STEP  7l  026160 

SPLPP l J*l) «SPLPP ( J) »SA  026160 

F  (J)  IS  THE  SOUNO  PRESSURE  LEVEL  DIFFERENCE  (STEP  6)*,  IF  ?<J>  <  3.  026200 

TONE  CORRECTION  IS  ZERO.  026220 

130  F ( J)  *SPL  ( J)  “SPLPP  ( J)  0  262<*0 

IF  <F<J)-3.fl)  21 0  *  11 Ot 11 0  0  2o2o0 

110  IF  (J  .GE.  11  .AND.  J  .LE.  21)  GO  TO  140  026260 

DETERMINE  *C*  FOR  FREQUENCIES  30  TO  400  HZ  AND  6300  TO  10000  HZI  026300 

IF  (F(J>-20.0)  120*130)130  326320 

120  C«F(J)/6.0  026340 

GO  TO  160  0 263oQ 

130  C*3.  3333333  026380 

GO  TO  160  026400 

DETERMINE  *C*  FOR  FREQUENCIES  300  TO  5000  HZ*  026420 

1*0  IF  <F(J)-20.0)  145*150*150  026440 

145  C»F(J)/3.0  026460 

GO  TO  lbO  025480 

MAXIMUM  TONE  CORRECTION  IS  6.6566667  OB.  026500 

laO  C»6.t>b6o667  026»20 

160  IF  (C-PTC)  210,210,170  026540 

170  PTC=C  026560 

1PTCU)*J  026580 

210  CONTINUE  02o500 

RETURN  026620 

220  CONTINUE  026640 

RETURN  026660 

ENO  026680 
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SUBROUTINE  CALd.II) 


026700 
026720 
D2o7*0 
02676  C 

JECK  11  C ml - CAlLEO  FROM  SUBROUTINE  ‘CDIST*.  02o7o0 

THIS  SUBROUTINE  COMPUTES  THE  A-WEIGhTING  OVERALL  SOUNO  wEVEL.  026600 

026620 

WHERE.....  02od*0 

K  -  INDEX  OF  DISTANCE  FDR  WHICH  Al  IS  BEING  COMPUTED  026SoC 

I  -  INOEX  OF  ARRAY  SPlX  — SPECIFIES  SPECTRUM  USEO  TO  COMPUTE  At. 026680 

AL  -  ARRAY  CONTAINING  THE  A-WEIGHTING  OVERALL  SOUND  LEVEL  IN  06A026900 

AM  -  ARRAY  CONTAINING  THE  A-WEIGMTING  COEFFICIENTS  DEFINED  026920 

ONLY  FOR  3AN0S  IBl*17  TO  I8Ha40  326940 

SPLX  -  ARRAY  CONTAINING  SOUNO  PRESSURE  LEVEL  DATA  IN  D3  026960 

FOR  K-TH  DISTANCE  026900 

ii  -  Index  of  array  al  in  which  a-weighting  oata  are  stored  027ooc 

dial  OK  2)  .  027020 

0270*0 

•*027100 


IN  THIS  SUBROUTINE  I8Ni.=l  CORRESPONDS  TO  64n0  17  AND  I 8NH*2*  **027120 


CORRESPONDS  TO  BAND  40.  IF  THIS  IS  CHANGED  IN  THE  PROGRAM,  **0271*0 
THIS  SUBROUTINE  MUST  BE  CHANGED  ACCORDINGLY.  *»0271b3 

•*027 16  b 

•  ••♦••027200 

OI ME NS I  UN  AW (24)  027220 

COMMON  M, MM , I BnL • I BNH , NC ,  l , N , K, OIST ,NEAS ( 3) , FSPL ( 19 , 24 , 6 ) , SPl X ( 193 272* 0 
1,241  ,PNLX (19,22,2)  ,PNITX(19, 22,2) ,AL(19,22,2>  027260 

OATA  AW/-3Q.2 ,  “26  «  2,  -2 2.5,  -1 9.1, -16 . 1, -13 .4, -t 0.9, -8. 6, -6 .6, -a . 6 ,  0  27263 
A- 3. 2,-1. 9,-0. o,0. 0,0. 6, 1.0, 1.2, 1.3, 1.2, 1.0, 0.5, -0.1, -1.1, -2. 5/  027300 

ALOaO.O  027320 

OO  10  J*1 BNL , I BNH , MM  027340 

IF  (SPLXdjJ)  .GT.  9  990. 0)  SO  TO  10  3273o0 

ALDaALO*  10.0**(  (SPLXU,  J)  ♦»  W  <  J)  1  71 0 . 0 )  027360 

10  CONTINUE  027400 

IF  (ALO  .LT.  0.090001)  GC  TO  £0  027420 

AL (I  ,K , II ) a  10.0*ALOGl0(A.O)  327440 

GO  TO  50  327400 

AL=9999.0  FOR  MISSING  OATA.  027480 

20  AL(I,K,III«9999.0  027500 

50  RETURN  027520 


ENO 


0275*0 


SUBROUTINE  PPFOAT (J1 ,J2, JI ,l 1 , L 2 , IPX . I EOI T > 


BECK  12  SUBROUTINE  ‘PPFOAT  * 

T Mis  SUBROUTINE  IS  CALLED  FROM  THE  *OMEGAll*  ROUTINE  TO  WRITE  THE 
PROFILE  DATASETS  FOR  *PNLTX*,  ‘ALT',  ANO  »AlTX*  ON  FILE  *TAPE2*  WHEN 

ieuit*-i.  these  data  are  stored  in  arrat  *senx(i9, 22,121  *. 

EACH  PROFILE  DATASET  CONSISTS  OF  THE  FOLLOWING 

1)  ONE  *COMO£CK*  CAROT 

2)  three  'comment*  cards? 

3)  THREE  DATA  CAROS  FOR  EACH  OF  THE  19  ANGLES  CONTAINING  NOISE 
LEVEL  DATA  FOR  THE  22  STANOARO  DISTANCES. 

FOR  MORE  DET AILS  SEE  THE  WRITE-UP  ENTITLED!  ‘CARD  FORMAT  FOR  GROUND 
RUNUP  NOISE  PROFILE  DATASETS*. 

THIS  SUBROUTINE  ALSO  WRITES  THE  *PNLX  • ,  *PNLTX*,  *ALX‘,  ANO  *AlTX* 
PROFIlE  DATA  (AS  REQUESTED)  ON  OUTPUT  PAGES  D,  E,  F,  ANO  S 
WHEN  IPR» " . 


THE  SUBROUTINE  ARGUMENTS  ARE! 


Li  ,L  2  — 
IPR 

IEOIT  — 


Index  of  *pnltx*  data  in  array  *senx*. 

INDEX  OF  *ALTX*  DATA  IN  ARRAY  *S£NX*. 

INCREMENT  OF  THE  INOEX  OF  THE  PROFILE  OATA  IN  ARRAY  SENX 
<  JI«1  OR  2)  . 

1NDICIES  OF  NORMALIZED  OATA  USED  TO  INTERPOLATE  PROFILE 
OATA. 

PROGRAM  PRINT  FLAG. 

PkOGRAM  ANGLE  selection  flag. 


DIMENSION  OK£Y<3» ,CKEY (3 1 , NR ( 17, 3!  ,  T 12 ( 2) , IDIST ( 22) 

COMMON  M,HM,IBNL, IBNH.NC,  L, N, K, OIST ,MEAS ( 3) ,FS PL (19,24,6) , 

1  SPLX ( 19 , 2D , SENX (19,22,12) ,R (191 ,FNT (22) 

COMMON  /HEaOC/  TEST (6) , T T ( 6, 6) , DATE , RUN (6) ,IPAGt,IVER, ACC,OPC (6) , 
1  IT,P1,IHH,IT8,P6,IH8,FIMPR3 ,PV,CRI,PS(6,b> ,0PD(2,6> ,0»CC (6) ,DELN 

2,  PSC(o) ,PSU,NP,PSIF (6) , PSCF (6) , NRC (6) , ICC ,OPCDM, OPD1, 3PD2 

3,  COMO (Cl » RUNG (6) ,IC, OATH (SI , IFC <b> ,IFCC,IFI (6) ,IFII 
EQUIVALENCE  ( SPLX (1, 1) ,NR( 1, 1) ) 

DATA  T12/10H(5X, 1H(, 17 ,3H, 2X/ , RP/bH , 2H  1) /  , Ab/ 3M , Ab/ , T6/5H ,Fb. 1/ 
ARRAY  'IDIST*  CONTAINS  THE  STAnOAKO  DISTANCES  USED  FOR  PRINTING  ONLY 
DATA  IDIST/  200, 250, 315, *00, 500, 630, 600, 1000, 1250,1600, 

120 00 ,2500,3150, DO  0  0,  50  00,8  30  0,6  00  0,10000,125  00,16000,20  0  0  0,250  00/ 
OATA  OKEY/NHPNLT,<hHAL  ,  4H  At  T  /.BLK/1H  /,  CKEY/1HP,  1HA,  1HT/ 

J«  0 

OPCOM»OPCC(ICC) 

IF  (L!  5,5,10 
5  OPOl *dL  K 
OP02«BLK 
GO  TO  15 
10  OP01*OPO(1,U 
OPD2»OPO(2,L1 


027560 
‘027560 
‘027600 
027620 
0276*0 
027660 
027680 
027700 
027720 
0277*0 
027760 
027780 
027600 
027620 
027640 
027660 
027660 
027900 
027920 
027940 
027960 
027930 
028000 
026020 
0260*0 
0  26  Oo  0 
028080 
026100 
028120 
0281*0 
026160 
026160 
‘028200 
‘028220 
0282*0 
028260 
026260 
028300 
028320 
0283*0 
0283o0 
026380 
028*00 
>  026*2  0 
028**0 
0  28*o0 
026*80 
029500 
028520 
0265*0 
026560 
026590 
028600 
0  266  2  Q 
0266*0 
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(FOR  I £31 T »-l) J 


15  IF  (IEOIT)  110,20.20 

00  LOOP  100 - WRITE  PRuFiLt  DATA  ON  FILE  ‘TAPE2* 

20  00  100  JJSJ1.J2.JI 
J«J*1 

IF  (  HE  A  S !  J) )  100, 100, JO 
WRITE  ‘COMOECK*  CARDI 

30  WRITE! 2 ,2 100)  CKE  Y (J) ,ACC, 03C0H,  PV.CRI 
IA-0 
ICOsl 

WRITE  FIRST  JAT A  CARO  FOR  ANGcE  0  DEGREESl 

WRITE ( 2 ,2  000)  OKEY(J) ,AC:,03CDH,  IA , (SENX ( 1, K, JJ) ,K=1, 5)  , ICO 
WRITE  FIRST  ‘COMMENT*  CAROl 

WRITE (2,2110)  ACC.CPCuM,  p V,  CRI , I VER, DATE , IT8 , IHo, Po , TEST < 1) , 

1  RUNC(IC) 

f T (6,1)  CONTAINS  ‘NOISE  SOURCE/ SUBJECT  *  DATA  FOR  THE  FIRST  REFERENCE  0  289*. 0 
FILE  OPERATION  POWER  CCOE  —  2  LINES  OF  25  CHARACTERS.  THESE  2  LINES028960 


0  2366  0 
028680 
028700 
026720 
0287.3 
0  287  o  0 
0  287  o  0 
028800 
028820 
028840 
028860 
028680 
028903 
028923 


ARE  Written  on  THE  SECONu  comment  card  for  each  profile  dataset. 
WRITE  SECOND  AND  THIRO  ‘COMMENT*  CAROS  I 
IF  (L)  35,35,40 

35  WRITE! 2, 2 120)  ACC.OPCuM,  3 V, CR1 , (TT { 1 , 1) , I »1 , b)  , ACC.COM D (LI) , 

1  COMD( L  2) ,  ACC , OP  COM ,  3 », CRI , 0P0 1 , OPD2 , PSC ( ICC)  ,PSU 
CO  TO  45 

<•0  MRITE(2,2125)  ACC.OPCCM,  PO,  CRI , <TT (1, 1) , I«l,6> ,ACC,COMO< L) , 

1  ACC.OPCOM,  P0,CRI,0PJ1 ,UP02 ,PSC ( ICC ) ,PSU , (PS (I , L) ,1*3,6) 

4?  ICO* 2 

WRITE  SECOND  AND  THIRD  ‘DATA*  I  ARCS  FOR  ANGLE  0  OEGREES I 
Wk.IT  E(2, 2010)  (SENX(  1,  K,  JJ)  ,  K*  7,14), ICO 
ICO*J 

WRIT E( 2, 2010)  (SENX I  1 , K, J J ) ,  K*15 , 22) ,ICO 
IAC*0 

JO  LOOP  60  —  WRITE  3  DATA  CAROS  FOR  ANGLES  10  TO  170  DEGREESl 
OO  6 0  1*2,16 
IF  (1EDIT)  50,50,60 
50  11*1-1 

IF  (NR(1I,J)  .LE.  9)  GO  TO  80 
‘IA*  IS  ANGLE  IN  DEGREESl 
oO  I A » (1-1 ) *  10 

STORE  ANGLES  WRITTEN  ON  FILE  'TAPE2*  IN  NR(IAC,J>  FOR  J-TH  MEASURE. 
IAC*IAC*1 
NR  (I  AC  ,  J)  *1* 

IC jsICO+1 
WRITE! 2,2000) 

ICQ*ICO*l 
WRIT  E! 2 ,2010) 

ICO«ICO»l 
WRITE! 2 ,2010) 

30  CONTINUE 
!■  19 
lAsiOO 
iCJslC0*l 

WRITE  3  OATA  CAROS  FUR  THE  13  9  OEGSEE  ANGLE  I 
WRITEI2 ,2009)  6L< , 

ICO*lCO*l 

WRIT  E (2,2010)  (SENX(I,K,JJ), <»  7, 14), ICO 
WRITE! 2, 2010)  (SENX! I , K, J J ) , X* 15 , 22 > 


3LX,  ACC , CPC  OM,  IA, !SENX(I,K, JJ) ,X*l,o>  ,ICO 

(SENXII.R, JJ),K*  7, 14), ICO 
(SENX! I, X, JJ),X« 1»,22 ),ICD 


ACC, CPC OM,  I A, (SENX (I  ,K, JJ) , Ksl ,6) ,ICQ 


028980 
029003 
029020 
029040 
029060 
029080 
029103 
029120 
0291.0 
029163 
J29180 
029233 
029220 
0292.0 
0  292  o  3 
029283 
029300 
029323 
0293.3 
0293o  Q 
029380 
029400 
029420 
0294.3 
029460 
029483 
029500 
029523 
0295.0 
029560 
029580 
0296 3 Q 
029620 
0296.0 
029660 
029680 
0297)0 
029720 
0297.0 


130  CONTINUE 

C  SETUP  VARIABLE  F ORMAT  ARRAY  F OR  PRINTING  PROFILE  DATA. 

110  IF  tIPR  .LT.  1)  RETURN 
FMT  ( 1)  *T12  <  II 
FNT (2) =T12 (2) 

FMT ( 22) *RP 

:  DO  LOOP  400  — »  PRINT  PROFILE  DATASET  DATA  FOR  PNL,  PNlT,  AL  AND 
Z  AlT  . 

Jj*0 

Z  JJl  —  INDEX  OF  'PNL*  DATA  WHICH  IS  NOT  WRITTEN  ON  FIuE  *TAPE2*« 
JJ1»J1-JI 

00  <*00  J*  JJ1»  J2  j  JI 
JJ*J J*1 

IF  <JJ  .EO.  1)  GO  TO  150 
IF  ( MEAS ( JJ-1 ) I  400,  400,160 
la 0  IF  (HEAS ( JJ) I  ♦00,400,160 
160  JJJ«OJ«’l 

CALL  HEADS (JJJ) 

Z  * K '  IS  DISTANCE  INOEXI 
00  350  K«l,22 
:  *1*  IS  ANGLE  INOEXI 

00  3*0  1*1,19 

IF  (SENX(I,K, JI)  325,330,320 
320  IF  (SENX(1,K, JI-9990.0)  330,325,325 
C  3LANK  OUT  HISSING  OR  NEGATIVE  PROFILE  OATA  FOR  PNL  TO  ALTl 
325  MI)»3LK 
FHT(I*2)»A6 
GO  TO  340 

330  R<  I) *S£NX (I , K , J) 

FHT  tI*2)*Tfa 
3*»0  CONTINUE 

C  SKIP  LINE  BEFORE  8-TH  ANO  18-TH  DISTANCE! 

IF  (K  .Ea.  8  .OR.  K  .EQ.  13)  WRITE* 6,3005) 

350  WKITE(6,FHT)  IOIST(K),R 
WRITEC6.3005) 

WRITE16 ,3015) 

480  CONTINUE 

2000  FORMAT (A6,3X,A3,A2,I8,6F9.1, 6X,I2) 

2010  FORMAT (6X , dFS  «1,0X,1 2) 

2100  FORMAT (6H*C0NDECK, 1X,A1,A3,A2,2A1) 

2110  FORMAT <oHCOMMENT  ,A3,A2,2Al,  9H  ONE GA11 . , 1 1,1X , A 10 ,1 3, 3H  F  ,13, 
16H  PCT  ,F5.2, 7N  IN  HG  , 2X ,A 10, IX, A2) 

2120  FORMAT (6MCOMMENT  ,A3,A2,2A1,  2<1X,2A9,A7  ) ,*N* , A3, A4, *-• , A47 
1  8HCUMMENT  , A3 ,A2, 2A 1,  2X.2A10,  3( 2X, A5, IX, A6) ) 

2125  FORMAT  UrtCOMMEMT  ,A3,A2,2«1,  2«1X,2A9»A7  )  ,*N*  ,  A3,  A-7 
1  6HCOHHENJ  ,A3,A2,2A1,  2X.2A10,  3 ( 2X ,A5, IX , Ao) ) 

3005  FORMAT*  5X, 1H * , 124X, 1H) ) 

3015  FORMAT*  5X , 1H * ,1 24 *1H- ) , 1H) ) 

RETURN 

END 


029760 

029790 

029S00 

029620 

029640 

029660 

029860 

029900 

029920 

0299-0 

029960 

029960 

030030 

030020 

030040 

030060 

030060 

030100 

030120 

030140 

030160 

030180 

030200 

030220 

030240 

030260 

030280 

030300 

030320 

0303-0 

030360 

030360 

030400 

030420 

030440 

030460 

030480 

030500 

030520 

030540 

030560 

030580 

030600 

030620 

030640 

030660 

030660 

030700 

030720 

030740 
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SUBROUTINE  TITPG 


JECK  13  TITPG— PRINTS  THE  TITlE  PAGE 

THIS  SUBROUTINE  IS  SAUED  FROM  THE  MAIN  ROUTINE  TO  PRINT  THE 
COVER  PAGE  FOR  EACH  'OH EGA  11*  TEST  (AIRCRAFT). 

VARIABLES  REQUIRED  BY  THIS  SUBROUTINE  ARE  I 

TT (6,6) ,T£ST(6) ,ACC,PV,IVER  AND  DATE. 


DIMENSION  T  (3) 

COMMON  H, MM,IBNL,IBNH,NCt  L, N, 10, DIST, MEAS (3) 

COMMON  /HEADC/  TEST ( o) , T  T <6, b) , OATE , RUN  <  o)  ,IPAGE, I VER, A CC , OPC ( 6) , 
1  IT,Pl,lHH,IT6,P9,IH8,FIMPRb ,PV,CRI ,PS(6,6),0P0(2,6) ,OPCC (6) ,OELN 

2,  Pi C (b ) ,PSU, NP, PS IF (6),FSC;(6), NRC (6) , ICC ,OPCDM, OPJ 1 ,  OP 0 2 

3,  COMO (e) ,RUNC(6) ,IC,DATN(a) , IFC (6) , IFCC , IF I (6) ,IFII 
DATA  oLK/lH  / 

T  T  (G , 1)  CONTAINS  'NOISE  SOURC £/ SUBJECT •  OAT  A  FOR  THE  FIRST  OPERATION 

POWER  COOE -  2  LINES  OF  25  CHARACTERS.  THE  FIRST  LINE  IS  PRINTED 

JN  THE  COVER  PAGE. 

DO  10  1=1,3 
10  T  ( II  *TT  (1 , 1) 

PRINT  THE  TOP  BORDER  LIME! 

WRITE(6, 3000) 

IF  ( T ( 3)  .EQ.  3LK)  GO  TO  705 
PRINT  THE  TOP  'NOISE  SOURCE7SU6  JECT  *  30R0ER  LINES  I 
DO  700  1*1,3 

700  WRITE(6,3030)  T, T  ,T, T 
GO  TO  7 lb 
705  DO  710  1*1,3 
710  HR1TE(6 ,3032)  T, T , T, T 
715  00  720  1*1, 16 
720  HRITE(6,3020) 

WRIT  £(6,3  035) 

WRITE(6 ,3020) 

IF  (T(3)  .EQ.  BLK)  GO  TO  730 
WRITE(b,3Q40)  T 
GO  TO  735 

730  WRIT  E(6 ,3  042)  T 
735  WRIT E(6 , 3020) 

WRIT  E<  6 ,3  0*6) 

WRITE (6 , 3020) 

WRIT  E  (6 , 3  020) 

WRIT  E (6 ,3020) 

PRINT  THE  TEST  'ID'  BLOCK t 
WRITE (o ,3050 )  TEST(l) 

WRIT  E( 6 , 30b5 )  ACC 
WRIT E(6,3  065)  PV 
WRIT  E (6 ,3060)  1VER 

PRINT  THE  T«BLE  OF  CONTENTS  FO*  THE  'OMEGA  11'  OUTPUT! 

WR1TE(6,310Q) 

WRITE < o » 3120) 


030760 
‘030730 
030600 
030820 
0  3  06*  Q 
030660 
030660 
030900 
030920 
0309*0 
030960 
‘  0  3096  0 
>031000 
031020 
0310*0 
031060 
031060 
031100 
031120 
0311*0 
031160 
031160 
031200 
031220 
031240 
031260 
031260 
031330 
031320 
0313*0 
031360 
031380 
031400 
031420 
0314*0 
031460 
031490 
031500 
031520 
0315*0 
031560 
031580 
031600 
031620 
031640 
031660 
Q316o0 
031730 
031720 
0317*0 
031760 
031780 
031600 
031820 
031840 


WRITE ( 6 » 3130) 

IF  IHEASd)  .GT.  0)  WRITE  to,  3135) 
IF  ( HE AS (2)  .GT.  0)  WRIT E ( o,  3 IV 3 ) 
IF  i  Mt  A  S !  3  )  .GT.  0)  WRITE! 6,  3145) 
WRIT  E!6 ,3  loQ) 

GO  760  1*1,4 
760  WRIT E (6, 3020) 

WRj.TE!b,3155>  GATE 
WRIT  E< 6 , 3 020) 

WRITE ( 6 ,3020 ) 

WRITE (6, 3  to 0) 

00  770  1*1, 4 
770  WRITE (6 ,3020) 

IF  IT  ( 3)  .EU.  3LK)  GO  TO  790 
PRINT  THE  60TT0M  60R0ER  LINES  I 
GO  7a0  1*1,3 

780  WRIT E ( 6 , 3 03 0)  T,T,T,T 
GO  TO  003 
730  OO  795  1*1,3 
735  WR1T£(6 ,3032)  T, T  ,T, T 
000  WRITE(6,3010) 

RETURN 


031S60 
031880 
331903 
031920 
J  319*.  0 
331960 
331940 
032000 
032020 
0320-.0 
032060 
032030 
032100 
032120 
032140 
032160 
032180 
032203 
032220 
0  322*0 
032260 
332280 
032300 
032320 
032340 
0323o3 
032380 
032400 
032420 
032440 
032450 
032460 


3000  FORMAT ( 1H1,33 (4HUSAF ) )  032320 

3010  FORMAT I  IX ,33 ( 4HUSAF ) )  032340 

3020  FORMAT!  1X.4HUSAF , 124X ,4-IUSA F)  0323o0 

3030  FORMAT!  1X,«MU3AF,  4X,  4 1 1 X, 2A9, A7 , 4X) ,  4HUSAF)  032380 

3032  FORMAT!  IX.hMUSAF,  4X,  4 W X, 2A9, A7 , 1X> ,  4HUSAF )  032400 

3035  FORMAT!  1X.4MUSAF ,47 X, 31HN 01 SE  PROOUCEO  ON  THE  GROUND  3Y,46X,  032420 

1  4MUSAF)  032440 

3040  FORMAT!  1X,4HUSAF,  5  OX,  2A9, A7,  49X,  4MUSAF)  032460 

3042  FORMAT!  1X,4MUSAF,  53X,  2A9.A7,  46X ,  4HUSAF)  032460 

3045  FORMAT!  1X,4MUSAF,47 X, 31H0URING  GROUND  RUN-UP  OPERATIONS , 46X ,«HUSA0 3250 0 
IF)  032520 

3050  FORMAT!  1X.4HUSAF ,52 X.4HI EST , 7X, A10 ,  51X.4HUSAF)  032540 

3055  FORMAT!  IX, 4HUSAF ,52  X, 14WA IR CRAFT  COOE « , 4X  ,A3, 5 IX ,4rtUSAF)  032560 

30o0  FORNAT!  1X,4HUSAF ,49X, 26HG0MPUTER  PROGRAM  OMEGA  11. , I 1 , 48 X,4rtJSAF ) 03258 0 
3065  FORMAT!  1X.4HUSAF ,52X, 16HPRGFILE  VERS I ONI , 4X,Al,51X,4rtUSAF)  032600 

3100  FORMAT!  1X.4HUSAF,  96X,4HPA3E,24X ,4 MUSA F )  032620 

3120  FORMmT!  IX,4HUSAF,24X,  5 3 RNDRMALI ZED  DATA  AS  A  FUNCTION  OF  ANGLE  AJ326hO 
1NO  FREQUENCY  ,47X,  4HUSAF7  IX ,4HUS AF ,3  OX ,  32HNOKMALIZED  SOUND  PRE032660 


2SSURE  LEVEL  ,  36 (1M.),  1HC,  25X,4HUSAF) 


032680 


3130  FORMAT!  IX ,4MUSAF , 24X,  5 9H NOISE  LEVEL  AS  A  FUNCTION  OF  ANGLE  AND  0032710 
1ISTANCE  FROM  SOURCE,  41X, 4WUSAF)  132720 

3135  FORMAT! IX ,4HUSAF,30X,  032740 

2  22HPERCEI VEO  NOISE  LEVE.  ,  46I1H.),  1HO,  25X.4MJ5AF/  032760 

3  IX ,4M USAF ,  3 OX ,  38 MT0NE-C3RRECTE0 ,  PERCEIVED  NOISE  LEVEL  , 30 « 1M.  0 327 8 0 

4),  1ME,  25X, 4HUSAF)  032810 

3140  FORMAT!  IX , 4 HUSAF , 3 OX ,  31M A -WEI GHTEO  OVERALL  SOUND  032620 

1LEVEL  ,  37 ( 1H . )  1HF,  25 X, 4HUSAF)  032840 

3145  FORMAT!  IX, 4HUSAF ,  30X,  032860 

1  47HT0NE -CORRECT ED,  A-WEI GMTEC  OVERALL  SOUND  LEVEL  ,21(1H.)  IMG, 032880 

2  25X,4HUSAF)  032900 

3155  FORMAT!  IX .4MUSAF , 56 X, A 1 0, 56 X , 4MUSAF)  032920 

3160  FORMAT!  1 X.4MUSAF , 25 X , 73WA  EROSPACE  MEOICAL  RE  S032940 
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SUdROUT INC  PlT CIRO.JJl, JJ2  ,o JI) 


C 

C 


033100 
033120 
0331*0 
0331&0 

3ECK  1*  SUBROUTINE  ‘PIT* - DA. LED  FROM  THE  MAIN  OMEGAll  ROUTINE.  033180 

033200 

THIS  SUBROUTINE  PRINTS  A  TAB  PLOT  OF  PNLT,  AL  AND  ALT  VERSUS  ANGuE  033220 
FOR  The  NORMALIZED  REFERENCE  DISTANCE;  the  DATA  ARE  from  THE  PROFI L  E0  3324  0 
DATASETS. 

033280 

ONLY  VARIABLES  BROUGHT  INTfc  THIS  SUBROUTINE  ARE  THE  FOLLOWING!  0333UQ 

OI  ST  ,SENX  19*  22, 12)  *  IRD,  JJ 1*  JJ2,  AND  JJI.  033320 

0 3 334  0 

Ak*AV  '  SENX  ( 19,22*12)  '  CONTAINS  THE  *PNCT*,  ‘AL*  AND  ‘ALT'  PROFILE  033360 
DATA.  THE  LOCATION  OF  THE  DATA  IN  SENX  IS  DEFINED  BY  THE  IRD,  JJI*  J333o0 
JJ2,  ANO  JJI  INDICIES.  033N00 


033420 

IRD  —  INDEX  OF  THE  REFERENCE  DISTANCE.  033440 

JJI  --  INDEX  OF  'PNtT*  IN  ARRAY  SENX.  Q334oQ 

JJ2  --  INDEX  OF  *ALT»  IN  ARRAY  SENX.  033480 

JJI  —  INOEX  INCREMENT  CJJ1*JJI  IS  INDEX  OF  *AL*  DATA).  333500 

*****♦*♦*.**♦****♦♦******•••***•**•*•**••***••••••*****•**••*•*•*••♦*0335*0 

.***«•*••••.•*.•••*••»»••»••• ****♦*#***♦**♦*♦•***♦•**••*•***•***••••*033560 


OIMENSION  AIO  < lb)  * SY M (4) 

COMMON  h*HM*IBNL*IBNM*NC*LL*  N*X*OIST * MEAS  <  3) , FSPL ( 19, 24, b) , 

1  SPLX ( 19,24) ,  SENXC19,  22,12) ,IXC11) ,PC105,2) ,JJC3) ,SAVC3) 

DATA  AIO/1HA, 1HN, 1HG ,1HL,1HE,1R  , 1MI , 1HN, 1M  , 1HD, 1HE , 1HG , 1HR , 1HE , 
1  1HE.1HS/,  S YMY IMP , 1 HA , 1 HT , 1HX/ ,  BLK/ 1H  /,DDT/1H./ 

DO  LOOP  10,  16  AND  20  INITIALIZE  TAB  PuOT  ARRAY,  PC105,2)>  WITH 

GRID  DATA. 

DO  10  1*1, 105 
10  PCI,  1)  *BuK 

DO  15  1*1,103,2 
11*1*1 
PCI, 2) *DOT 
15  PC  II ,2 ) =8LK 
P  C 105, 2) *OOT 
OO  20  1*3,103,10 
20  P  C 1 , 1)  *DOT 
IA*b 

K*ICVCOIST) 

call  SUBROUTINE  'HEAUS*  TO  PRINT  TAB  PLOT  HEADING  BLOCK. 

CALL  HEAOSCXA) 

PRINT  SYMBOL  4.0  LINE  I 
WRIT  EC  6 , 2  000) 

WRITEC6 , 20 10) 

WRIT  E Co , 2110)  BLK, CP  CJ,1) ,J* 1,105) 

AMX*-100Q.O 

DO  LOOP  25  —  DETERMINE  HAXIMJM  ‘PNLT'  NOISE  LEVEL  ANU  THUS  THE 
MAXIMUM  REQUIRED  NOISE  LEVEL  SCALE  VALUEI 
DO  25  1*1,19 
Al*SENXCI,IRO, JJI) 

IF  Cm!  .GT.  4990 • 0)  GO  TO  25 
AMX*AMAX1 l A 1, A MX) 


033560 
033600 
033622 
033640 
0  33bo0 
033680 
0  33T  0  1 
03 37  .  - 
0  33  '. 

0  317**0 
03373 2 
033800 
033620 
0336*0 
033660 
0  3Je 3  0 
033900 
033920 
3  339*0 
033960 
033930 
034000 
0  3*0  2 0 
034040 
034060 
034030 
03*100 
034120 
034140 
034160 
0  34  Id  0 
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25  CONTINUE 

•MX*  1$  THE  HAXINUM  NOISE  llVE.  SCALE  VALUE. 

MX  =  (  (ICV(AMX)/10)  *1)  *1  LI 
00  40  1*1,11 

SETUP  ABSCISSA  SCALE  VAwUEt 
40  IX(I)=MX-llu+I»10 
MX=MX*2 
MN=I X(l)-2 
Ju  =  2 

JO  LOOP  200  -  SETUP  AnG  PRI NT  TAB  PLOT  FOR  EACH  OF  The  1 ,  ANCcESl 

DO  200  1=1,19 

IF  (I  .GE.  6  .AnO.  I  .l£.  1J)  GO  TO  70 

A1=8LK 

A2=dLK 

GO  TO  00 

SETUP  ORDINATE  101 
70  Ji*  < I-b) *  2>1 
A1 =A 10 ( J1 ) 

A2=AIO( Jl*l) 

SO  IA=(1-1)*1Q 
jD=J041 

•JO*  (OR  ALSO  *L  * )  CONTROLS  TYPE  OF  GRID  LINE  PRINTED? 

L  =  1 - GOT  EVERY  10  POUTS. 

L=2  -  DOT  EVERY  SECOND  PRINT  POSITION. 

IF  (JO  .EQ.  Si  GO  TO  62 
L=1 

GO  TO  85 
82  L=  2 
J0  =  0 

JO  LOOP  120  —  SETUP  'PNeT',  • AL *  AND  'ALT*  QATA  POINTS  IN  PLOT 
ARRAY. 

85  J3=0 

DO  120  J=JJ1, JJ2, JJI 
J3=J3»1 

CONVERT  NOISE  LEVEL  TO  ARRAY  POSITION  —  'Jl*. 

J1=ICV(SENX(I , IRQ, J) J-MN«1 
IF  (Jl  ,LT.  1  .OR.  Jl  .GT.  1  05i  GO  TO  100 
IF  (P(Jl,Li  .EQ.  9LK  .OR.  P(J1,l)  .  EQ.  OOTi  GO  TO  90 
SYM(4)  IS  SYMBOL  ’X*  FOR  COINCIDENT  POINTS. 

P( J1,L) =5YM(4) 

GO  TO  100 
9  0  SA  V( J3) *P( J1,L) 

P(  Jl  ,L) =SYMIJ3) 

GO  TO  110 
100  J1=0 
110  JJ  <J3) =J1 
120  CONTINUE 

PRINT  TAB  PLOT  LINE  FOP.  «i,uu.  *1  A*. 

WRIT  E l 6 , 2 10  0)  Al,  1 A , ( P ( j, l i , J  =  l» 1 05) 

JO  LOOP  160 - REINITIALIZE  P..OT  ARRAY  DELETING  PL0TTE3  J»TA  POINTS 

DO  160  J= 1 ,3 
IF  (JJ(J)i  loO, 130,190 
190  J1=JJ(J) 

P( Jl ,l> *SA V ( J ) 

160  CONTINUE 


0  Jh  2  .1  0 
0  342  2 J 
0  3  4  2  4  . 
0  342  o  J 
0  342  8 
03433 J 
03432 J 
33434. 

034363 
334360 
0  344  3  3 
034423 
0  344  4  C 
334403 
034480 
034500 
034520 
034540 
0  34»6  0 
034580 
034600 
034620 
034640 
034bo0 
034680 
034700 
034720 
034740 
0  347o  0 
034780 
034600 
034620 
034840 
0  340oQ 
034830 
034900 
034920 
034940 
034960 
034930 
035000 
035020 
035040 
035060 
035030 
035100 
035120 
035140 
0  35 16  C 
.  035130 
035200 
035220 
0  3524  0 
035260 
0  1523  i/ 
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SUBROUTINE  RANK< IK£Q,lfcR<)  0355*0 

3  35560 
03555 G 
035600 
035620 
0356*0 
035660 
033690 
03520  0 
0  357  2  G 
0  357  4  G 
035760 
0  357  3  G 
035930 
035620 
035640 


DIMENSION  IREQ(2,6),NR(6> ,N<I<6)  035660 

COMMON  H,Nrt, lL,IH,NC ,L,N  035890 

COMMON  /HEAOC/  TESK6J  ,TT < 6, 6) , DATE ,RUN (6)  ,1PAGE,I VER,A3C ,OP0 <b>  ,  035900 
1  IT,P1,IHH,IT8,P8,IH8,FINPRS , PV, CRI , PS (6 , 6) ,0P0<2,6) ,OPCC (6) ,OElN  0  359  2  0 
2 •  PSC(b) ,P$U»  NP, PSIF (6) iPSCF (6) , NRC (6) . ICC ,OPCDM, OPOl , DP02  0  359*0 

3,  C0nD<6> ,RUNC(6) ,IC,CATN(o) ,IFC<6) ,IFCC,IF1 C6> ,IFII  035960 

OATA  FCT/0.001/.OUM/ 0. 0/  035530 

3  CONVERT  POWER  SETTING  OATA  FRO*  • A  *  FORMAT  TO  FLOATING  POINT  FORMAT.  336000 
IERR*0  036020 

OO  10  1*1 , N  0360*0 

OECOOE (5,3000, PS (l,i)>  PSIF(I)  036060 

C  OUTPUT  POWER  SETTING  UNITS  (?SU)  MUST  8E  THE  SAME  AS  IN  THE  REFERENCE  0 3o0  8 0 

3  FILEI  036100 

IF  ( PS ( 2 1 1 )  « Nc.  PSU1  GO  TO  25  036120 

10  CONTINUE  0361*0 

OO  20  1*1 »NP  036160 

2 u  DECOOE(5,3000,PS3 (I)  )  PS3FU)  0361o0 

GO  TO  30  036200 

25  WRITE(6, 20001  ACC , OPC< I> ,P S< 2, I) ,PSU  336220 

I£RR*3  0362*0 

RETURN  0  3&26Q 

3  1NQICIES  OF  AFTERBURNER, WET  A  NO  WITH  JETS  *PSIF»  OATA  (IFI»0)  ARE  036280 

3  STORED  IN  *NRI *  BUT  NOT  RANKEO.  036300 

30  KK*0  036320 

IF  ( IFI I )  50,50,35  336340 

3500*5I*1,N  0  3  o  3  6  0 

IF  ( IFI (I) )  45,45,40  33o360 

*0  KK*KK*1  036400 

NRI(KK)*I  036420 

*9  CONTINUE  036*40 

SO  KKI*KK  036460 

3  KKI  NUMBER  OF  OPC'S  HlfH  1FI>0  (KKI  SHOULD  »IFII>.  036490 

3  RANK  PSIF l I)  OATA  ANO  STORE  INDEX  OF  PSIF  OF  RANK  • KK •  IN  NRI ( KK)  5  036500 

3  RANK  STARTS  AFTER  UNRANKEO  AFTERBURNER,  WET  AND  WITH  JETS  DATA;  036520 

3  THAT  IS,  FIRST  KK*KKI*1.  0365*0 

IF  <N  .EQ.  KKI)  GO  TO  110  036560 

IF  (N  .GT.  1>  GO  TO  60  036580 

NRI ( 1) ■ 1  036600 

Gu  TO  110  036620 


3  DECK  15  SUBROUTINE  'RANK* 

3  THIS  subroutine  is  CALLED  from  THE  main  routine  TO  DETERMINE  the 
3  NORMALIZED  DATASETS  (ONE  OR  TWO)  REQUIRED  TO  COMPUTE  THE  3R0FILE 
3  OUTPUT  FOR  EACH  REQUESTED  OUTPUT  POWER  SETTING  (PSC  OR  PSCF) .  THE 
3  INOICIES  OF  THESE  NORMALIZED  DATA  ARE  STORED  IN  ARRAY  *IREQ*  FOR 
3  EACH  POWER  SETTING. 

3  SUBROUTINE  ARGUMENT  I ERR  IS  REIURNED  GREATER  THAN  ZERO  WHEN  ERRORS 
3  OCCURRED  IN  THIS  SUBROUTINE. 

C 


OOtl  C>  on 


60  N 1  *  <  KI  ♦  1 
00  o5  1*1, N 
o5  NrC  (I ) *N1 
N1*N-1 


00  90  I*i,ni 
IF  (XFXd))  70,70,90 
70  XI»I*1 

00  35  K«II,N 
If  (IFKKI)  75,75,55 
75  IF  I PSIF ( X)  .GT.  PSIF(K)I  G3  TO  50 
NK(K)*Nk(<>  *1 
GO  TO  55 
40  NRU>*NR(I> 

45  CONTINUE 
KK*NR(I> 

NRI(KK)*I 
90  CONTINUE 

If  UFKNM  100,  too,  110 
100  KK*NR(N) 

NRX(KK) «N 


0F  aftsr«*urn6p,het  and  with  jets  *pscf»  data  iif:»o)  are 

STOREO  IN  'NRC '  BUT  NOT  RANKED. 

110  KK*0 

IF  (XFCCl  135,135,120 
120  OO  130  1*1, NP 


IF  ( IFC  (I ) )  130,130,  125 
125  KK*KK*1 
NRC(KK) *1 
13 C  CONTINUE 

135CKKCaKKUH,<eR  °F  PSC#S  MITH  ISC>°  <K<C  SH0ULD  «IFCC». 

IF  (NP  .£0.  KKC)  GO  TO  220 

RANK  PSCF(I)  OAT A  ANO  STORE  INDEX  OF  PSCF  OF  RANK  'KK*  IN  NRC IKK) 
STARTS  AFTER  UNRANKED  AFTERBURNER,  NET  ANO  WITH  JETS  MTM 
THAT  IS,  FIRST  KK*KKC*1. 

IF  (HP  .GT.  1)  GO  TO  150 
NRC  1 1)  *  1 
GO  TO  210 


150  N1*KKC*1 


ISO 


OO  160  1*1, NP 

NR(I)*N1 

N1*NP-1 


DO  200  1*1, N1 
IF  ( IFC  (I ) )  170,170,200 
170  II*I>1 


OO  190  K*II,NP 
IF  ( IFC (K> )  150,150,190 
140  IF  (PSCF (I)  .GT.  PSCF(Kl)  G3  TD  165 
NK(K)*NR(K)»1 
GO  TO  190 
145  NR (I ) *NR( I)  •! 

190  CONTINUE 
KK*Nh( I ) 

NRC ( KK) *1 
240  CONTINUE 


335o<«0 

036660 

036650 

036700 

036720 

036740 

036760 

036740 

036600 

036420 

036640 

036360 

036640 

036900 

036920 

036940 

0369b0 

036930 

037000 

037020 

0370*0 

037060 

037050 

037100 

U37120 

037140 

037160 

037140 

037200 

037220 

03724 0 

0372*0 

037230 

037300 

037320 

037340 

037360 

0  373o3 

037400 

037420 

037440 

Q374bO 

037440 

037530 

037520 

037540 

037560 

037530 

037600 

037620 

037640 

037660 

037640 

037700 

037720 
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IF  ( IFC (NP) )  205,205,210 

037740 

205  KONR(NP) 

037760 

NRC(KK) «NP 

037780 

210  IF  (KKC)  260,260,220 

037600 

JO  LOOP  250  — -  0£T ERMINE  T-»£  INDEX  OF  ARRAY  PSIF  (ALSU  OPC,  ETC.) 

037620 

REQUIRED  TO  COMPUTE  PSCF(IC)  DATA  AND  STORE  INOEX  IN 

ARRAY 

IREQ(1, 

IC) 037640 

ONLY  AFTERBURNER,  WET  OR  WITH  JETS  DATA  ARE  CHECKED 

HERE. 

037860 

220  DO  260  IC«1,KKC 

037680 

ICw«NRCUC> 

037900 

IREQ (1, 1C) *0 

037920 

IREQ  (2, 20  *0 

3379*0 

00  230  IN«1,KKI 

3  379o  3 

IN1*NkI (IN) 

037980 

IF  (ABS(PSCFaCC)  -PSlF(lNl))  ..I.  FCT*PSIF  (INI ) ) 

GO  TO 

240 

038000 

230  CONTINUE 

038020 

HRlTE  ERROR  MESSAGE  WHEN  MATCH  IS  NOT  FOUND. 

036040 

MR1TE(6,2«00)  PSC (ICC) , ACC 

038060 

IERR-4 

036060 

RETURN 

036100 

240  IREQ (1, IC) aINl 

038120 

25 0  CONTINUE 

036140 

IF  (KKC  .EQ.  NP)  RETURN 

036160 

JO  LOOP  NdO - DETERMINE  INJICIES  OF  ARRAY  PSIF  (ALSO  0>>C,  ETC.) 

036180 

REQUIREO  TO  COMPUTE  PSCF(IC)  DATA  AND  STORE  INDICIES 

IN  ARRAY 

036200 

IREQ( 112,10  —  All  NORMAL  POHER  CONDITION  DATA  ARE 

CHECKED  HERE. 

036220 

IF  ONE  OR  MORE  OF  THE  SAME  REFERENCE  DATASETS  ARE  REQUIRED 

TO  COHPJTEO  382*0 

T NO  CONSECUTIVE  PROFILE  OATASETS,  THEN  IREQ( 1, IC) «IREQ( 1, 

i:-i)  or 

038260 

IREQ(2,IC)«IREQ(2,IC-1>  TO  AvOiO  DUPLICATE  COMPUTATION  OF 

PROFILE 

038280 

DATA. 

036300 

2o  0  NP1«KKC*1 

038320 

IF  ( KKI  .EQ.  N)  GO  TO  500 

0383*0 

N1 *KKI ♦ 1 

038360 

N2»N“1 

036390 

00  400  IC«NP1,NP 

036400 

ICl»IC-l 

036420 

ICC  --  INOEX  OF  *PSC*  (OR  PSCF)  DATA  OF  RANK  *IC*  1 

0364*0 

ICC«NRC (IC) 

036460 

IREQ (1, 1C) *0 

036480 

IR£Q(2,IC)«0 

038500 

IF  (Nl.LT.  N)  GO  TO  300 

039620 

IN2*NR1 (Nl) 

0  385.0 

GO  TO  320 

038560 

300  00  310  IN*N1,N2 

036530 

IN1*NRI (IN) 

038600 

IN2*NR1 (IN+1) 

038620 

IF  ( ActS (PSCF (ICC ) -PS IF (I Nl ) )  ..I.  FCT’PSIF (INI ) ) 

GO  TO 

340 

036640 

IF  ( PSCF ( ICC)  .GT.  PSIF ( I n 1)  .AnO.  PSCF(ICC)  .LT. 

PSIF ( In2) )  DO 

0  386o  0 

1  TO  330 

038680 

310  CONTINUE 

036700 

320  IF  (ABS(PSCFdCC)  *PSIF(In2))  .LT.  FCT*PSIF(IN2)  ) 

GO  TO 

350 

036720 

RRITE  ERROR  MESSAGE  IF  MATCH  IS  NOT  FOUND. 

0387*0 

IN1«NRI (KKIA1) 

0367  b0 

I£RR«2 

036780 

MRXTE(b,2300)  IERR,aCC , PSC F< ICC) ,PSIF(IN1) ,PSIF (IN2) 

038600 

RETURN 

036620 

DU  IKK) 


i 


1 

r* 

'/ 

* 

a 


; .  v. 


33d  IF  (IC-NP1)  360,360,335  036640 

LABEL*  335  TO  355  —  CHECK  rJ  JETEkMINE  IF  THE  SAME  REFERENCE  DATA  036660 
HERE  USED  FOR  THE  PREVIOUS  *1C'I  036680 

335  IF  (  In2  .EQ.  IREQ  ( 1,  IC1)  .OR.  INI  .  EQ.  IREQ<2,ICl»)  GO  TO  370  036500 

GO  TO  3b0  038520 

3*0  IF  (IC-NPl)  3o5,365,  349  038940 

3-»5  IF  (INI  .EQ.  IREQ  (2, IC1) )  GO  TO  375  038960 

GO  TO  365  038980 

35 0  IF  UC-NP1)  360,360,355  039000 

355  IF  (In2  .EQ.  IREQ (2, IC1) )  GO  TO  365  039020 

GO  TO  360  0390-.0 

t. ABELS  3o0  TO  385  —  SET  ‘IREQ*  EQUAL  TO  THE  INOICIES  OF  THE  039060 

REFERENCE  PONE*  SETTING  DATA  REQUIRED  TO  COMPUTE  THE  ‘PSCdC)'  039060 

DAT  A I  039100 

3o0  IREQ (2,10) *IN2  039120 

3a5  IREQ (1 » IC > «IN1  0391-»0 

GO  TO  400  039160 

370  aREQU,IC)»IN2  039180 

375  IREQ (2 , IC) *IN1  039200 

GO  TO  400  039220 

360  IREQ (1, 1C)  *IN2  0392-.0 

GO  TO  400  039260 

3<*5  IREQ  (2 ,  ID  «IN2  039230 

400  CONTINUE  039300 

RETURN  039320 

HK1TE  EkROK  MESSAGE  WHEN  ALi.  Irl*0  FOR  INPUT  DATASETS  BUT  NOT  ALL  039340 
IFC>0  FOR  REQUESTED  PROFILE  DATA.  039360 

500  l£RR«i  039380 

00  510  IC«nP1,NP  039400 

ICC«NRCUC>  039420 

510  NRITE(6, 2300)  IERR , ACC , PSD F(  ICC)  ,OUH,OUN  039*-»0 

RETURN  039460 

2000  FORMAT ( *1  FOR  ACC*  *,A3»*  AND  OPC*  *,A2/*  POWER  SETTING  UNITS039480 

1  READ  FROM  NOKMALIZEO  DATASET  CO  NOT  HATCH  UNITS  ON  CODE  SHEET* 7  039500 

2  •  PS  < 2, 1 )  ** , A6/ *  PSU«*,A6/  039520 

3  *  ALL  DATA  FOR  THIS  A1C  DELETED  FROn  THIS  JOB.*)  039540 

2300  FORMAT T *1  REQUESTED  POWER  SETTING  OATA  OUTSIDE  RANGE  OF  AVAILABL039560 

IE  INPUT  UATA.*//*  SEE  5UI.  RANK  —  IERR»*,12,*  DATA  FOR  ACC039560 
2«  * , A3, •  OELETEO  FROM  THIS  JOB.*//*  PSCF(ICC)*  *,F11.5,  039600 

3  *  AND  h*N  AND  MAX  INPUT  POWER  SETTINGS  ARE  *,F11.5,*  AND  *,  039620 

h  FH.3,*  RESPECTIVELT.*)  039640 

2400  FORMAT < *1  REQUESTED  AFTERBURNER,  WET  OR  WITH  JETS  POWER  SCTTING  039660 


1 - PSC«  • , A5/* 

2RENCE  FItE.*7  * 
3THIS  JOB.*) 

3000  FORMAT ( F5 • 0) 

END 


DOES  NOT  MATCH  POWER  SETTING  IN  NORNAlIZ?D  REFE039680 


ALL  0AIA  FOR  AIRCRAFT  CODE  *,A3,« 


OELETEO  FROM  039700 
039720 
039740 
039750 
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SUdnOUTINc  SUM*Y ( IRE  3, 1 EDI T, FMXER) 


039790 
'039600 
'  0  3962  0 
0  398**  0 
039660 
039630 
039900 
039920 
039940 
039960 
039960 
'040000 
'040020 
040040 
040060 
040060 
040100 
040120 
040140 
040160 
040160 
040200 
040223 
040240 
340260 
040260 
040300 
040220 
040340 
040360 
040360 
040400 
040420 
040440 
0404o  0 
040460 
040500 
040520 
04054  0 
040660 
040560 
040600 
040620 
040640 
040660 
040660 
040700 
040720 
040740 
040760 
040780 
040800 
040623 
040640 
040660 


DECK  16  SUBROUTINE  *SUHkV* 

this  subroutine  is  called  FRO  N  THE  ‘MAIN*  ROUTINE  TO  PRINT  the 
OMEGA  11  SUMMARY  PAGE  WHICH  LISTS  JOB  *IO'  PARAMETERS  AS  WELL  AS  A 
SUMMARY  OF  THE  INPUT  AND  OUTPUT  DATA. 


C  FOR  IP*<1,  i HIS  IS  THE  ONLY  T A3  OUTPUT. 


DIMENSION  YN  ( 2 ) 1 IR£Q(2,6) , ANG(3I 

COMMON  M,MH,I3NL, IBNH.NC,  L,  N,  1 0, QI ST , MEAS  (3) 

COMMON  /HEAOCS  TEST ( 6) ,TT <6, 6) ,0ATE,RUN(b) ,IPAG£,I VER, ACC ,0?C ( 6) , 
1  XT,Pt,IHH,IT6,P5,IH6»FIMPR6 ,PV ,CRI , PS(6 *6 ) » OPO (2 >6) ,3PCC <6),0ElN 

2.  PSC(6) ,PSU,NP,PSIF<6) ,P$Cr (6) ,NRC(b> , ICG  ,OPCOM,OPOl, 3PD2 

3,  CUNU(o)  ,RUNC(S)  ,IC,OAH(b)  ,  IFC  (6 > , IFCC , IFI ( 6)  ,IFII 
DATA  YN/3HMO  , JN YES/ ,ANG/ 3M  NO,JH  10»3HALL/*flLK/lH  / 

MRiT  E(6  1 20  00)  TEST  (1 )  ,  <  T  T  ( 1, 1)  ,  I  *  1, 3) 

wkITE( 6 , 20 10)  IOER,ACl,Py,  CRI *DATE»  OELN 
MRlTE(e >2020) 

PRINT  SUMMARY  OF  REFERENCE  DATA  (INPUT)  FOR  EACH  POWER  SETTINGI 
OO  50  L*1  ,N 

6  0  WRITE (b, 2 03  0)  ACC ,COMD <L ) , OPC (L) , IFI (L) , PS (1 , L ) , PS (2 , L) ,  TEST (L) , 

1  RUW(L)  ,OPUU,L)  ,  OPO  <2,L) 

WRiT£(b»2Q40) 

OO  60  L  *1 »  N 

60  HRITE<6,2050)  ACC ,COMO« L) , (T T (1 , L) , 1*1, 6) , DATN (L) 

START  OUTPUT  DATA  SUMMARY  I 
MRITE(b,2060) 

11*1 

12*1 

13*1 

IF  (MEAS(l)  .GT.  0)  11*2 

IF  ( MEAS( 2)  .GT.  O)  12*2 

IF  (HEAS(3)  .GT.  0)  13*2 

WRIT  E ( D  » 2  070 )  YN(I1)  ,YN( 12 ) , YN(I3) 

IF  ( ItOIT I  70,60,90 
70  11*1 

GO  TO  100 
60  11*2 

GO  TO  100 
30  11*3 

100  WRITE (6 , 20o0 >  ANG(Il) 

IF  ( ZEOIT )  110,105,110 
139  WRITE ( 6,2065)  FNXER 
110  WRIT E(6 ,2090)  IT 6 , P6 , 1M6 

WRIT  E(6 , 2  100)  TEST  (l),(TT(I,l),i*l,6) 

WRIT  E(6 , 2 110) 

PRINT  PROFILE  DATA  SUMMARY  FOR  EACH  POWER  SETTING! 

OO  150  1*1, NP 
Il*NRC (1) 

I2*IREa«l,I) 


I3*Ik£Q(2 ,X)  040830 

IF  (12  .EU.  1)  GO  TO  120  040900 

IF  (13  .£Q.  0)  GO  TO  130  040920 

WRITE (6 , 2 120 )  ACS,OPCL (ID  ,a V, 3*1 ,OPCC (I D ,RUNC(I) ,PSC<I 1) ,  040940 

1  PSU,ACC,COrtO(I2>  ,YN(1>  , ACC,CONO(I3>  040960 

GO  TO  190  040900 

120  12*13  041000 

130  WRiTE(6»212Q>  ACC ,OPCC ( 1 1)  , P v , CRI ,OPCC ( 1 1)  ,RJNC ( D ,P3C 1 1 1) ,  041020 

1  PSU,ACC,COMO(I2)  ,dLX,BL<, 9.K,0PU(1,I2)  ,0PD(2,I2)  0»l0->0 

130  CONTINUE  OtlOoO 

WRIT E (6  *  2 130)  041090 

RETURN  041100 

2000  FORMAT ( 1H1,  9X, ’SUMMARY  OF  I/O  FOR  TEST  *,A10,’  FOR  THE  ’,  2A9, A/041120 

1)  041143 

2010  FORMAT (/10X, ’PROGRAM !  OMEGA  11. *,11/  0411o3 

1  10  X, * AIRCRAFT  SOOE I  *,A3/  10X,*PROFILc  VERSION  COJEl  ’,At/  041130 

2  10X,*COMOECK  REVISION  IDENTIFIER!  *,A1 /  lQX.’OATEl  »,A10/  041200 

3  10X, ’DELTA  N  (UR  DEuN) = • ,r 6. 2, *  OB*)  041220 

2020  FORMAT ( // 10Xf 31 ( IN*) ,*  INPUT  DATA  *,31(1K*)  0h1240 

1  /11X,*COMOE:k*,#X,  ’FLAG  FOWER’  *9X j  0 412 a 3 

2  ’TEST  RUN  POWER  OESCRI PTI JN*/  041233 

3  13X,*NAME  OPC  1FI  SETTING*, 3X, 2 ( 6X , 2MNO> )  041300 


2010  FORMAT (/10X,*PROGRAM I  OMEGA  11. *,11/  0411o3 

1  10 X, * AIRCRAFT  SOOE I  *,A3/  10X, 'PROFILE  VERSION  COUES  *,Al/  041130 

2  10X,*COMOECK  REVISION  IDENTIFIER!  *,A1/  10X,*OATEl  ’,A10/  041200 

3  10X, 'DELTA  N  (JR  DEuN) = •  ,r 6. 2, *  OB')  041220 

2020  FORMAT ( // 10X, 31 ( IN') INPUT  OATA  ',31(1K')  041240 

1  /11X,'CONOE:k*,»X,  'FLAG  F0HER',9X,  04l2s3 

2  'TEST  RUN  POWER  OESCRI PTI JN'/  041233 

3  13  X, 'NAME  OPC  1FI  SETTING', 3X, 2 ( 6X, 2MNO> )  041300 

2030  FORMAT(10X,*N',R3,A4,3X,A2,  16, 3X, A9, IX, A6, 2X, A10,2X, A 2 , 2X, 2A 10)  041320 

2040  FORMAT (/11X,*C0M0ECK  *,1»(IM-),'  NOISE  SOURCE/SUwJECT  *,15(1H-)  041340 

1,'  DATE  OF'/ 13X, 'NA ME  ® ART  l',21X,'PART  2*, 2lX,*NJRM.  RUN*)  041360 
2090  FORMAT (10X,*N*,A3,A4,2(2X,  24 9, AT) , 2X, A 10)  041330 

2060  FORMAT ( // 10X, 30 ( 1H*) ,*  OUTPJT  DATA  *,31(1H'))  041400 

20/0  FURHAK  10X, ’MEASURES  COMPUTED!  PNuT (P) — • , A3,4X, 'A. ( A) — *, A3,  041423 

1  4X,’AlT(T)--’,A3)  041440 

2030  FOkMAT ( 10X ,* ANGLE  SELECTION  MODE!  PROFILE  DATA  FOR  »,A3,  041460 

1  •  ANGLES  WRITTEN  ON  FI.:  MAFE2”)  041480 


2030  FOmMAT (10X, ’ANGLE  SELECTION  MODE!  PROFILE  data  FOR  »,A3,  041460 

1  •  ANGLES  WRITTEN  ON  FI.:  MAFE2”)  041480 

20d5  FORMAT(10X,’MAX  ERROR  PERMITTED  IN  PROFILE  DATA  ANGLE  SELECTION  (FO41E00 
1ILE  TaPE2) ** , F9. 1 , •  JB*)  041520 

2030  FORMAT (10X, ’METEOROLOGY!  TEMP* , 6X, •«* , 16, *  F*/  041540 

1  24X, *6Ar  PRESS  ■*, F6. 2, *  IN  HG'/  24X,*REL  HJMIO  **,15,*  X*)  041660 

2130  FORMAT (/10X,*TEST  NUMBER  FOR  ALL  RUNS!  *,A10/  041580 

1  10X, ’NOISE  SOURCE/SUBJE ST  sOR  ALL  RUNS,  PART  1!  *,2A9,A//  041600 

2  4aX, ’PART  21  ’,2A9,A/)  041620 

2110  FORMAT (/10X, ’PROFILE*,  7K,*RUN  POWER’, 6X,  041640 

1  ’NORMALIZED  COMQECKS  POWER  DESCRIPTION* /  041660 

2  12X,’lJ*,5X, ’OPC  NO  SETTING  FIRST  SECOND’)  041630 

212  0  FORMAT (10X,A3,a2, 2A1 , 2 ( 3 X, A2 ) , 2X , A5 , IX , A6 , 2X , *N’ , A3, A4,  2X ,  041/0  0 

1  Ai,A3,A4,3X,2A10>  041/20 

2130  FORMAT ( //10X , 2o ( 1M’> ,*  GENERAL  INFORMATION  *,27(lH*>/  041/40 

1  10X,’OPC  —  OPERATION  »OWER  CODE*/  041/60 

2  10X ,’FLAG  IFI*1  -  REFERENCE  DATA  ARE  FOR  AFTERBURNER,  WET  OR  WI041/80 

3TM  JETS’/  10X,*  IFI* 0  — -  NORMAL  REFERENCE  OATA  WHICH  CAN  BE  IO4I8OO 

ANT  ER POL A I ED*/  041620 

5  10X, ’PROFILE  COMDEwK  NAME  *  SYMBOL  P,  A  OR  T  ♦  PROFILE  10  LI5TEO  041840 
6AB0VE*)  041660 

ENO  041880 
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SUBROUTINE  EJ1TCRO,  J1 ,  J2 ,  Jl ,  ACC ,  PSC , PSU,  FMXER) 


JECK  17  SUBROUTINE  'EDIT • 

this  subrout ine  is  o all eu  from  the  'main'  routine  to  select  the  ten 

(0  and  lo 0  DEGREES  PLUS  6  ANGc-S  1*  BETWEEN)  ANGLES  FOR  EACH  MEASURE 
(PNLT,  AL  ,  AND  ALT)  WHICH  BEST  DEFINE  THE  ANGLE  VERSUS  NOISE  LEVEL 
JATA  FOR  THAT  MEmjURE  AT  THE  REFERENCE  DISTANCE  (250  FEET). 


DIMENSION  TYPE (3) 

COMMON  I  DM (9) , MEAS (3) ,FS?. (19, 2, . 6) ,NR ( 17 , 3) ,NRA(17,8) , ER(19,3) , 

1  ERA  (19,8)  ,R.iS(3>  ,RM  SA  (8 )  ,  DSC  ( 19)  ,0B ( 1 0)  ,  A NG ( 1 0 )  ,DUH(10)  , 

2  SENXU4 19,22, 12) ,S£NX(19,3), SL(18,3) ,DSL(17, 3) ,NR0(17,3) 

OATA  TVPE/4HPNLT,nHAl  ,4HA.T  /,  ERMAX/1.49/ 

AkkAY  ' MEAS ( 3 ) *  IS  THE  FLAG  TO  INDICATE  MEASURES  TO  BE  COMPUTEui 
MEAS ( 1) >0  —  COMPUTE  'PNLT'  OATA. 

MEAS  ( 2)  >0 - COMPUTE  'A.'  DATA. 

MEAS(3)  >0  COMPUTE  *A. T  *  OATA. 

J ■  0 
JM*3 

DO  100  Jj*  J1 , J2, JI 
jaj»l 

SEN X (1, J)*SEHXJ(l,IRO,JJ) 

COMPUTE  ANGLE  TO  ANGLE  SLOPE! 

DO  30  1*2,19 

SENX(I,J)«SENXO(I,IRD,JJ) 

.1*1-1 

30  SL(II,J)*SENX(I,J)-S£NX(II , J ) 

COMPUTE  CHANGES  IN  SLOPE! 

DO  35  1*2,18 
11*1-1 

35  DSL (XI, J)*SL(i,J) -SL (II,  J) 

DO  40  1*1,17 
-»0  NR  ( I  , J )  •  1 

RANK  CHANGES  IN  THE  SLOPES! 

00  50  1*1, lb 
11*1 ♦! 

00  50  K*II ,17 

IF  ( ABS  (DSL (I , J) )  .GT.  A 3 S  (DSL ( < , J) ) )  GO  TO  45 
NR  {  <  ,  J)  *NR  (  K,  J)  ♦  ! 

GO  TO  50 

t5  NR(I,J)«NR(I,J)*1 
50  CONTINUE 
100  CONTINUE 

Nk(I,J)  CONTAINS  RANK  oF  I-fH  OS.. 

WRIT  E (6 ,2  000) 

ICK*  0 

*J'  IS  THE  MEASURE  INOEXI 
00  200  J*l,3 

WRITE (6 ,2 100)  TYPE (J ) , ACC, PSC ,FSU, (I, 1*10, 180, 10) 

WR.iT E( 6 ,220  0)  (SENXII,  J)  , I  *1 , 19)  ,  (SL  ( I ,  J)  ,  1*1 , 16) 

WRIT£(6 ,23  0 0)  (DSL (I  ,U) ,1* 1, 17) , (NR (I, J)  ,1*1,17) 

N*iTE(b,240Q> 


341900 
•041920 
‘  041940 
04l9o0 
041980 
042000 
042020 
D42O4J 
042050 
‘042050 
‘042100 
042120 
042140 
042lo0 
042180 
042200 
042220 
042240 
0422o0 
042280 
042300 
042320 
042340 
0423b0 
042380 
042430 
042420 
042440 
042480 
342480 
042500 
042520 
042540 
042580 
042580 
042600 
042620 
042640 
042660 
042680 
042730 
042720 
042740 
042760 
042780 
042800 
042820 
O4284O 
042860 
042880 
042900 
042920 
042940 
342960 
042980 


uo  ()  oo  oon  n  uuuuo  ooo  uo  oououu 


RMSMN=luOO.O  0430  0  0 

COMPUTE  ‘rMS'  OF  ERROR  USING  All  THREE  SETS  OF  ANGLES  FuR  EACH  043020 

MEASURE*  THE  S  ANGLES  WITH  THE  LARGEST  CHANGE  XN  SLOPE  0*30*0 

(PLUS  0  ANO  130  DEGREE  ANGLES )  ARE  SELECTED  ANL  LINEAR  INT ERPOLATION  043060 

IS  USED  TO  COMPUTE  THE  MEASJRE  OAIA  FOR  THE  REMAINING  ANGLES.  0*3060 

THE  ERROR  IS  THE  DIFFERENCE  BETWEEN  ACTUAL  DATA  AND  THE  INTERPOLATED  043100 
DATA.  0*3120 

OO  160  JR*1,3  0*31*0 

CALL  £RR(J,JR,  NR,RMS,ER,  JM)  0*3lo0 

IF  ( RMS ( JR)  .GE.  RMS MN)  GO  TO  ISO  0*3160 

RMSHN«RHS <JR»  0*3200 

JMN=  JR  0*3220 


ISO  CONTINUE  0*3240 

HR1T£( 6, 2120)  JMN,  (ERU,  JMN)  ,1*1,19)  0*3260 

HRITE(6,2500)  RMS  043280 

OO  lis  1*1,17  0*3300 

165  NRO ( I , J) *Nk ( I , JMN )  0*3320 

RMS(J)*RmSHn  0433*0 

USING  THE  hnGLc  SET  WITH  THE  SMALLEST  'RMS'  ERROR,  SELECT  THE  0*33t>0 

ANGLES  WITH  THE  LARGEST  ERRORS  IN  AN  ATTEMPT  TO  IMPROVE  THE  ANGLE  043380 

SELECTION!  043*30 

CAlL  ITE*(J,JMN,ICK,ER.MAx,NRO)  043420 

AFTER  *  ITER* I  0*3440 

RHS(J)  CONTAINS  THE  RMS  DATA  043460 

EM  19, 3)  CONTAINS  ERROR  DATA.  043490 

NRO ( 17 ,3)  CONTAINS  RANK  DATA  043500 

IF  *ICK  *>0 ,  CHANGES  HERE  MADE  IN  »ER*  AND  'NRO*  IN  aJ3.  *  ITER* . 0*3520 
200  CONTINUE  0435*0 

IF  (ICK)  235,235,210  0*3560 

IF  THE  ANGLE  SELECTION  WAa  CHANGED  8T  SUBROUTINE  'ITER*  ABOVE  0*3530 

( ICK* 0)  ,  RECOMPUTE  THE  'RMS'  ERROR  FOR  EACH  ANGLE  SET  FOR  EACH  0*1600 

MEASURE  ANO  CALL  SUBROUTINE  'ITER'  AGAIN!  IE.,  REPEAT  0*3620 

LABEL  200  LOOP  COMPUTATIONS  (IN  LOOP  230) »  0*3o*0 

210  OO  230  J*l,3  043660 

RmSMN* 1000.0  043680 

DO  220  JR*1,3  043700 

CALL  ERM J,JR,NRQ,RMS,ER,JM>  0*3720 

IF  (RMS (JR)  .GE.  RMSMN)  GD  TO  220  0437*0 

RMSMN*RNS ( JR)  043760 

JMN* JR  043780 

220  CONTINUE  0*3800 

OO  225  1*1,17  0*3820 

225  NK(I,J>=N*0(I, JMN)  0*3840 

WRIT E (6 , 250 0)  RMS  043860 

' JMN* J*  ITERATION  MAS  AlREADT  SEEN  COMPUTED  ABOVE!  0*3880 

IF  (JMN  .EQ.  J)  GO  TO  230  043900 

RMS(J)*RMSMN  0*3920 

CALL  ITER(J,JMN,ICK,ERMAX,NR)  043940 

230  CONTINUE  043960 

235  IHOR*0  0*3980 

compute  the  final  error  anu  'rms*  error  data  for  each  measure;  o**ooo 

ANGLES  MITN  RANK  (NR  OR  NRO)  >  9  IRE  INCLUOEO  IN  THE  PROFILE  DATASET  04*020 
MRITTEN  ON  FILE  'TAPE2'  I  0**0*0 

DO  310  J*l,3  044060 

IF  (HEAS(J))  310,310,240  044080 
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2*0  IF  ( ICK)  2*6,245,255  0**100 

2*5  DO  256  1=1,12  0*4123 

250  NR  ( I  ,  J)  =NRD  ( I  »  J)  0**141) 

255  CALL  £kR(J,J,NR,  RMS,ER*JH)  0**lo0 

IERR*Q  0*4160 

CHECK  FOk  ERRORS  GREATER  THAN  *  FHKER  * ;  IF  ErRORS  OCCUR,  PRINT  0*4200 

WARNING  MESSAGES  WITH  ERROR  AND  RANK  DATA.  THE  DATA  ARE  JSED  04*220 

REGARDLESS  OF  THE  MAGNITUDE  OF  THE  ERRORS!  044240 

DO  260  1*2, Id  044260 

IF  (ASS (ER<I, JJ )  .IT.  FHXER)  GO  TO  260  0442S0 

IERR*IERR*1  0**300 

2b 0  CONTINUE  0*4320 

IF  (IERK)  300,300,270  0*4340 

IF  (1ERR)  310,310,270  044350 

270  IF  ( IHOR)  275,275,260  044360 

273  I H  OR  * 1  044400 

WRITE! 6,2000)  ALC,PSC,PSU  0*4420 

250  WRIT E (6 , 2  0  05)  TYPE (J) , FHXER  0*4440 

300  HRIT£(6, 2110)  (1,1*10,160,10)  0*44a0 

WRIT  E(6,2130)  (NR(I,J) ,1  =  1,17)  044460 

WRITE (6 ,2120)  J, <£R(I,J) ,1*1,19)  044300 

310  CONTINUE  04*520 

MRITE(b«2500)  RMS  044540 

RETURN  044560 

2000  FORMAT !*1 AIRCRAFT  CODE!  »,A3,*  POWER  SETTING!  *,A5,1X,A6>  044580 

2005  FORMAT (//•  FOR  *,A4, *  DATA,  THE  10  ANGLES  SELECTED  RESULT  IN  ONE  0044600 

1R  MORE  ERRORS  GREATER  THAN  ^MXIR*  *,F6.3/  *  ANGLES  SELECTED  ARE  0  04*620 

2AN0  100  PLUS  0  ANGLES  WITH  RANK  >  9.*>  04*640 

2100  FORMAT (  //*  ID!  • ,A4,2X,4J,2X,AS,A6//*  ANG  Q*,13I7>  04*660 

2110  FORMAT!//*  ANG  0*,10I7)  0*4680 

2120  FORMAT!*  ER* , i 1, Fo.l , 10F J . 1)  044700 

2130  FORMAT!  ♦  RANK*, 4X, 1717)  0**720 

2230  FORMAT!*  OAT* , F6 . 1 ,1 8F7. 1/ *  SL  *,18F7.2)  0447*0 

2330  FORMAT!*  OSL* , oX , 17F7. 2/*  RANK* , 4X, 1717)  0*4760 

2430  FORMAT ( 1M  )  04*760 

2500  FORMAT!  3X, *RHS1»* ,F7.3, 5X ,*RMS2**, F7 .3 . 5X ,*RNS3«* ,F7 .3)  0**600 

END  0*4820 


SU9«0UTInl  £RR<  J,JA  ,l.RA ,  RMS  A  ,ERA,  JM> 


deck  io  subroutine  'err* 

this  subroutine  is  CALLEu  prom  subroutines  'EDIT*  ano  *iter*. 

IT  US ES  ulNEAR  INTERPOLATION  T3  COMPUTE  THE  MEASURE  DATA  S0R  ANCLES 
WITH  RANK  <  10,  THEN  COMPUTES  THE  ERROR  ANO  'RMS'  ERROR  BETWEEN  THE 
OIVEN  JAT A  ANO  THIS  INTERPO.ATEO  DATA.  NINE  ANGLES  ARE  INTERPOLATED 
FOR  EACH  SET. 

01MENSI0N  AU<19)  ,NkA  (17,  Jn),RMSA<  JM> , ERA ( 19, JM) 

COMMON  I0M<9)  ,  MEAS  (3)  ,FS»L  <19, 2%,  6)  ,NR£R<407)  ,08C  ( 19 )  ,  03  (  10)  , 

1  ANG (10) ,DUM(1Q) , SEN  XO  < 1 3, 22,12)  ,SENX(13,3> 

DATA  AG/ Q.,10.,20.,30.,4Q< ,50.,o&.,70»,6Q.,9Q.,10Q.,llQ*  ,120., ISO 
1,  140 . , ISO. ,160. , 170. ,180. / 

K*1 

!  SET  ANGLE  ANO  03  ARRAYS  FOR  ANGLES  0  ANO  180  DEGREES) 

AnG(  K)  »  0.  0 
03 (K)*SENX(K, J) 

ANG(10)*180.0 

OB(lO)sS£NX(19,J) 

00  30  1*1, 17 
II  *1*1 

IF  ( NRA ( I , J A )  .lT.  10)  G3  TD  SO 
K*K*1 

;  SET  UP  ANGLE  ANO  08  ARRAYS  FOR  THE  B  SELECTED  ANGLES) 

ANG( K) * AG ( II > 

D3(K)*SENX(II,J) 

90  CONTINUE 

IF  (K  ,NE.  9)  WRITE) b, 2000  >  K 

2000  FORMAT (✓/•  ERROR  IN  K  IN  SUBROUTINE  ERR - K**,I4) 

SUM*  0. 0 

:  USE  SUBROUTINE  *FINTP*  Tu  INTERPOLATE  03  Lt/EL  FOR  ANGLE  AG (I), 

THEN  COMPUTE  ERROR  ANO  *RMS*  SUM) 

CALL  FINTP(AG,U3C,ANG,03) 

DO  70  1*1,19 

£RA(I,UA) *SENX (I, J)-QBC(I) 

70  SUM*SUM«xRA(I, JA)**2 
i  COMPUTE  *RMS  * ) 

RMS A (JA ) *SQkT ( SUM/3. 0) 

RETURN 

ENO 


1  0448  5 0 
‘  0  4**6  3  0 
0  4490  0 
044920 
044940 

0‘.‘.9u  a 

0  4h*8 0 
045000 
045020 
‘045040 
‘045030 
OhSOBO 
o<«5iao 

0  45 12  0 
,  045140 
045150 
0*5 180 
045230 
045220 
04?2>»0 
045250 
045280 
045330 
045320 
045340 
045350 
0t5350 
045400 
045420 
045440 
045400 
045480 
045500 
045520 
04?340 
045550 
0455  6  0 
043600 
045620 
045640 
045650 
045580 
045700 
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C  JECK  19  SUBROUTINE  'FINTP* 

0  THIS  SUBROUTINE  IS  CALLED  FROM  SUBROUTINE  'ERR*  TO  USE  LINEAR 
0  INTERPOLATION  TO  COMPUTE  THE  NOISE  LEVELS  (DBC)  FOR  THE  19  ANGLES 
0  IN  ARRAY  *  AG  * .  THE  GIVEN  AN3-E  OATA  ARE  IN  ARRAY  'X'  AN  J  THE 
0  CORRESPONDING  NOISE  LEVEL  OATA  ARE  IN  ARRAY  *Y*. 

C 

0  IT  IS  ASSUMED  THAT  «X'  AND  *  A  G*  ARE  BOTH  INCREASING  AND  THAT 
C  X  (1) sAG (1) =0.0  OEGREES  AND  XI 10>sAG(13)=130.Q  DEGREES. 


DIMENSION  X(10),Y  (10) ,AG(19) ,0BC(19> 

OATA  N/ 10/ 

OBC  ( 1)  s  Y  ( 1) 

DBC< 19) =Y (10) 

L*  2 

COMPUTE  nOISE  LEVEL  FOR  ANG.ES  FROH  10  TO  170  DEGREES  I 
CO  100  J»2,18 

•XI*  IS  THE  ANGLE  FOR  WHICH  I  HE  NOISE  LEVEL  IS  BEING  COMPJTEDI 
XI sAG ( J) 

20  OIF=X(l)-XI 

LABEL  30  BELOW  —  NO  INTERPOLATION  REQUIRED! 

IF  (ABS(OIF)  .LT.  0.3)  GO  TO  50 
IF  (DIF)  30,70,70 
30  L*LH 

L  »N  SHOULD  NEVER  OCCUR! 

IF  (L  .GT.  N)  GO  TO  200 
GO  TO  20 
50  DBC(J)»Y(l) 

GO  TO  1U0 
70  L1*L-1 

DSC ( J) a Y (LI) 4(XI-X(L1) >* (Y (L)-Y(Ll) )/(X(L> -X(Ll)  > 

100  CONTINUE 
RETURN 

200  WRIT E (6 ,2 000) 

2000  FORMAT (1H1, 20 (1M*) ,*  ERROR  IN  SUB.  FINTP - ARRAYS  Ao  OR  X  AkE  I 

1RRECT .  *,2Q(1H*)) 

RETURN 

END 


045723 
♦*♦045743 
***045760 
045730 
045800 
0h5820 
O4384  G 
0  h58o  3 
043630 
0459  0  C 
045920 
045940 
045960 
***045960 
••*046000 
046020 
O46Q4O 
046063 
046090 
046130 
Oho 123 
046 1h  0 
046160 
Q46 16  0 
046200 
0462  2  0 
0ho240 
04o260 
046280 
Q4b3  0  0 
046320 
046340 
046360 
046390 
046400 
04042  0 
O46A4  0 
O4640  0 
046490 
NCO  0h65  0  0 
046520 
04654  0 
046560 


SUBROUTINE  ITERt J, JMN.ICK,  ERMAX, NRO) 


DECK  20  SUBROUTINE  'ITER* 

THIS  SUBROUTINE  IS  CALLED  FROM  SUBROUTINE  • EDIT •  TO  SELECT  THE 
ANGLES  WITH  THE  LARGEST  ERROR  »  ‘ERMAX*  AnO  DELETE  THE  ANGLES  WHICH 
RESULT  IN  THE  SMALLEST  ‘RMS'  error,  a  maximum  OF  5  LARGE  ANGLES  are 
SELECTED,  ONE  AT  A  TIME. 


OIMENSION  NRO ( 17 , 3) 

COMMON  I0H<9)  , MEAS (3 ) ,FS*. (19,24, 6) ,NROM(17,3) ,NRA(17,3>  ,ER(19,3> 
1  ERA (19 ,o) ,RMS(3) , RMSA (6) 

JM*8 

PERFORM  5  ITERATION  SETS  REPL AGING  ANGLES  »  ERMAX;  IN  MOST  GASES 
THERE  ARE  FEWER  THAN  5  ANGLES  WITH  ERROR  >  ERHAXI 
00  190  IRP=1, 5 
ERHX*-1.0 

DETERMINE  THE  MAXIMUM  ERkOR  (ERMX)  AND  THE  CORRESPONDING  ANGLE 
INDEX  (IMX>» 

00  160  Is 2, 18 
D1*A BS ( ER (I , JMN)  ) 

IF  (01  .lE.  ERHX)  GO  TO  ISO 

ERMXsOl 

IMX*I 

lod  CONTINUE 

IMXRK  —  INOEX  OF  MAXIMUM  ERROR  IK  RANK  ARRAT  (NRA  OR  NRDl « 
IMXRKsIMX-1 

IF  (ERHX  .Ll.  ERMAX)  RETURN 
ICK=  1 

RMSMN«1000.0 

SELECT  *IMX‘  ANGLE  ANO  OElETE  ANGLES  WITH  RANK  10  TO  1 7  ONE  AT  A 
TIME  TO  DETERMINE  THE  MINIMUM  ‘RMS'I 
00  170  ilsl,6 
IRK=II *9 
00  169  I« 1,17 
NRA (1,11) sNRO (I, J) 

IF  (NRO(I,J)  ,EQ.  IRK)  NRA(I,I1)sQ 
loS  CONTINUE 

NkA(IMXRK,II) =IRK 
COMPUTE  ERROR  OAT Al 

CALL  ERR(J»II,NRA,RMSA,ERA,  JM) 

IF  (RMSA(II)  .GE.  RMSHNJ  SO  TO  170 
II1«II 

RMSMNsRMS A (II ) 

170  CONTINUE 

IF  (RMSMN  .GE.  RMS(J)>  GD  TD  1E5 

IF  RESULTING  *RMSMN‘  Is  LESS  THAN  THE  ORIGINAL  ‘RMS*  FuR  THE  J-TH 
MEASURE,  kEOEFInE  *ER',  ‘NRO*  ,  ANO  *RHS‘  ARRATS  WITH  THE  REVISED 
UATAl 

00  175  1*1,19 
175  ER (I , JMN) *£RA <1,1111 
00  180  1*1,17 


0465  SO 
*046600 
•0-.6620 
046640 
0*»66  6  0 
046680 
043730 
046720 
0**67  -.0 
046760 
*046730 
•046800 
046820 
,046840 
0  468  o  0 
046630 
046900 
046920 
046940 
046960 
0  4b  9  d  0 
047000 
047020 
047040 
0-.7060 
0 47 0 o  0 
0h7  13  0 
047120 
047140 
0471a  0 
047130 
047200 
047220 
0h7240 
047260 
047230 
047300 
347320 
047340 
047360 
047330 
047400 
047420 
047440 
047460 
047480 
047500 
047520 
047540 
047560 
047580 
047600 
047620 
047E40 
047330 
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(i  4> 


K-; 


130  NR0<I,J>*NRAU,II1>  O-Woo. 

RMS<J)*RMSMN  0**770J 

;  WRIT  E 1 6  » 260 0)  lRP.RnSMN, (N RM I, III), 1*1, 17 ) , II 1 , <EK< I , JHN) , 1*1,19)0*7720 

GO  TO  190  J<*77h  0 

135  ER  II  MX ,  JIN)  =  0.0  0**77  b  u 

;  WRITE 1 6  » 2610)  IRP.RMSKN  0h776C 

130  CONTINUE  04.78  0  . 

RETURN  Oh70’O 

2600  FORMAT ( *  RMSA*  ,1 1 , *s* , F7 .3 /*  RANK* , 4X , 17 17/  *  ER A* , II , FJ . 1 , 1 9F7 . 1) 0 47fc * : 
2610  FORMATt*  RMSA*,Il,*s*,F7.3 ,5Xf*N0  IMPROVEMENT*)  047860 

END  0*7  oi 0 


* 
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ERRATA  FOR  AFAMRL-TR-83-020 
JANUARY  1987 


ROGRAMS  POR  PRODUCING  SINGLE-EVENT  AIRCRAFT 
FOR  SPECIFIC  ENGINE  POWER  AND  METEOROLOGICAL 
S  FOR  USE  WITH  USAF  COMMUNITY  NOISE  MODEL 
(NOISEMAP) 


ing  changes  apply  to  the  OMEGA  10.5  documentation: 


23  -  change  EA(13/13)  to  EA(22,24)  where 

>24)  is  the  excess  atmospheric  attenuation  in  dB 

ands  17  to  40  and  distances  200  to  25/000  feet. 

41  -  In  the  third  paragraph  change  800  Hz  to 
0  Hz  and  change  400  and  6300  feet  to  200  and 
0  feet/  respectively.  These  EA  data  are 
nted  in  Table  7  which  is  included  with  this 
a.  They  were  taken  from  AFAMRL-TR-84-017 
rence  8). 

44  and  45  -  In  the  section  Adjust  SPL  Spectra 
round-to-Ground  Propagation  replace  the  first 
ion  with: 

SPLX  _  -  SPLX  ,  -  EA  _ 

1  I  /  J  I  #  J 


■  the, distance  index  defined  for  all  22 
distances; 

■  the  frequency  band  index  defined  for  bands  17 
through  40; 

*  excess  attenuation  in  dB  for  the  Ith  distance 
and  the  Jth  frequency. 

»  the  second  equation  and  the  last  thre^lines  in 
iragraph. 


1 


<4 

(4)  Pages  58  to  60  -  the  following  change  appliaa  to  item 
(6a)  and  (6d).  A  minor  changa  was  also  mada  in  tha 
axtrapolation  critaria  in  that  now  all  raguaatad 
output  powar  settings  (PSC)  for  operation  power  codas 
04 ,  05,  06,  07  and  13  must  be  lass  than  or  equal  to 
tha  reference  file  takeoff  power  setting.  The  takeoff 
power  must  be  used  as  the  reference  (0PCR)  for  all 
requested  PSC  values  greater  than  the  reference  file 
takeoff  power  setting. 

The  following  changes  apply  to  the  OMEGA  11.2  documentation: 

(1)  Page  74  -  change  EA(13,13)  to  EA(22,24)  where 
EA(22,24)  is  the  atmospheric  attenuation  in  dB  for 
bands  17  to  40  and  distances  200  to  25000  feet. 

(2)  Page  93  -  In  the  first  paragraph,  change  800  Hz  to 
10,000  Hz  and  change  400  and  6300  feet  to  200  and 
25,000  feet,  respectively.  These  BA  data  are 
presented  in  Table  7  which  is  included  with  this 
errata.  They  were  taken  from  AFAMRL-TR-84-017 
(Reference  8). 

(3)  Page  93  -  BAD  is  defined  as  the  excess  atmospheric 
attenuation  of  sound  in  dB  over  distance  SX  for 

frequency  band  index  J  where  SXR  and  J  are  defined  for 

all  standard  distances  and  bands.  The  BA  data  are  in 
the  data  statement  array  and  BAD  ■  BA 

K»<J 
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